/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_3 / issue02 / extras / statistics / programs / editor

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 75 f4 20 47 45 | 4e 45 52 41 4c 20 44 41 |...u. GE|NERAL DA|
|00000010| 54 41 20 45 44 49 54 4f | 52 20 41 4e 44 20 53 54 |TA EDITO|R AND ST|
|00000020| 41 54 49 53 54 49 43 53 | 20 50 52 4f 47 52 41 4d |ATISTICS| PROGRAM|
|00000030| 20 43 6f 70 79 72 69 67 | 68 74 20 52 2e 43 2e 64 | Copyrig|ht R.C.d|
|00000040| 65 20 56 65 6b 65 79 20 | 31 39 38 39 2e 20 65 6e |e Vekey |1989. en|
|00000050| 71 75 69 72 69 65 73 20 | 70 6c 65 61 73 65 20 74 |quiries |please t|
|00000060| 65 6c 65 70 68 6f 6e 65 | 20 30 39 32 33 20 32 32 |elephone| 0923 22|
|00000070| 37 31 36 39 2e 0d 00 64 | 09 f2 69 6e 69 74 0d 00 |7169...d|..init..|
|00000080| c8 0a f2 77 68 65 72 65 | 0d 00 e6 7e f5 3a ef 33 |...where|...~.:.3|
|00000090| 3a db 3a f1 27 27 22 83 | 9d 84 88 3e 89 20 4d 41 |:.:.''".|...>. MA|
|000000a0| 49 4e 20 4d 45 4e 55 20 | 88 3c 89 20 45 6e 74 65 |IN MENU |.<. Ente|
|000000b0| 72 3a 2d 22 27 3a ee 20 | 85 20 e7 20 9f 20 3c 3e |r:-"':. |. . . <>|
|000000c0| 31 37 20 f1 22 45 72 72 | 6f 72 20 4e 6f 2e 20 22 |17 ."Err|or No. "|
|000000d0| 3b 9f 20 3b 22 20 68 61 | 73 20 6f 63 63 75 72 65 |;. ;" ha|s occure|
|000000e0| 64 20 61 74 20 6c 69 6e | 65 20 22 3b 9e 3a 64 65 |d at lin|e ";.:de|
|000000f0| 6c 3d a6 35 30 30 3a e5 | 20 8d 64 66 40 20 8b 20 |l=.500:.| .df@ . |
|00000100| e5 20 8d 64 66 40 0d 00 | f0 dc f1 22 82 31 2e 2e |. .df@..|...".1..|
|00000110| 2e 2e 54 6f 20 69 6e 70 | 75 74 20 64 61 74 61 20 |..To inp|ut data |
|00000120| 66 72 6f 6d 20 6b 65 79 | 62 6f 61 72 64 22 27 22 |from key|board"'"|
|00000130| 82 32 2e 2e 2e 2e 54 6f | 20 69 6e 70 75 74 20 61 |.2....To| input a|
|00000140| 6e 20 65 78 69 73 74 69 | 6e 67 20 64 69 73 63 20 |n existi|ng disc |
|00000150| 66 69 6c 65 22 27 22 83 | 33 2e 2e 2e 2e 54 6f 20 |file"'".|3....To |
|00000160| 73 61 76 65 20 74 68 65 | 20 66 69 6c 65 20 74 6f |save the| file to|
|00000170| 20 64 69 73 63 22 27 22 | 83 34 2e 2e 2e 2e 54 6f | disc"'"|.4....To|
|00000180| 20 64 69 73 70 6c 61 79 | 20 74 68 65 20 63 75 72 | display| the cur|
|00000190| 72 65 6e 74 20 66 69 6c | 65 22 27 22 83 35 2e 2e |rent fil|e"'".5..|
|000001a0| 2e 2e 54 6f 20 68 61 72 | 64 63 6f 70 79 20 74 68 |..To har|dcopy th|
|000001b0| 65 20 66 69 6c 65 20 74 | 6f 20 70 72 69 6e 74 65 |e file t|o printe|
|000001c0| 72 22 27 22 85 36 2e 2e | 2e 2e 54 6f 20 63 61 6c |r"'".6..|..To cal|
|000001d0| 6c 20 74 68 65 20 66 69 | 6c 65 20 65 64 69 74 6f |l the fi|le edito|
|000001e0| 72 22 0d 00 f8 a2 f1 22 | 85 37 2e 2e 2e 2e 54 6f |r"....."|.7....To|
|000001f0| 20 63 61 6c 63 20 73 74 | 61 74 73 20 6f 6e 20 74 | calc st|ats on t|
|00000200| 68 65 20 63 75 72 72 65 | 6e 74 20 66 69 6c 65 22 |he curre|nt file"|
|00000210| 27 22 86 38 2e 2e 2e 2e | 54 6f 20 6d 61 6b 65 20 |'".8....|To make |
|00000220| 61 6e 20 4f 53 20 63 61 | 6c 6c 22 27 22 86 39 2e |an OS ca|ll"'".9.|
|00000230| 2e 2e 2e 54 6f 20 75 73 | 65 20 61 20 73 65 72 69 |...To us|e a seri|
|00000240| 61 6c 20 70 72 69 6e 74 | 65 72 22 27 22 86 3a 20 |al print|er"'".: |
|00000250| 2e 2e 2e 54 6f 20 72 65 | 73 65 74 20 64 72 69 76 |...To re|set driv|
|00000260| 65 20 4e 6f 2e 20 6f 72 | 20 70 61 74 68 6e 61 6d |e No. or| pathnam|
|00000270| 65 22 27 22 86 3b 20 2e | 2e 2e 54 6f 20 66 69 6e |e"'".; .|..To fin|
|00000280| 69 73 68 22 0d 00 f9 0d | f2 66 69 6c 28 31 33 32 |ish"....|.fil(132|
|00000290| 29 0d 00 fa 0b 46 33 3d | a5 2d 34 38 0d 00 ff 34 |)....F3=|.-48...4|
|000002a0| e7 20 46 33 3c 31 20 84 | 20 46 33 3e 31 31 20 f1 |. F3<1 .| F3>11 .|
|000002b0| 22 83 9d 88 81 3e 20 4b | 45 59 49 4e 47 20 45 52 |"....> K|EYING ER|
|000002c0| 52 4f 52 20 54 52 59 20 | 41 47 41 49 4e 20 3c 22 |ROR TRY |AGAIN <"|
|000002d0| 0d 01 0e 36 e7 20 46 33 | 3d 31 20 f1 27 22 83 9d |...6. F3|=1 .'"..|
|000002e0| 84 3e 20 20 4b 45 59 20 | 45 4e 54 52 59 20 52 4f |.>  KEY |ENTRY RO|
|000002f0| 55 54 49 4e 45 20 20 3c | 22 27 3a f2 6c 6f 61 64 |UTINE  <|"':.load|
|00000300| 3a f2 64 69 73 70 0d 01 | 18 a1 e7 20 46 33 3d 32 |:.disp..|... F3=2|
|00000310| 20 5a 25 3d 30 3a 4a 25 | 3d 31 3a 4b 25 3d 30 3a | Z%=0:J%|=1:K%=0:|
|00000320| f1 27 22 83 9d 84 3e 20 | 20 46 49 4c 45 20 49 4e |.'"...> | FILE IN|
|00000330| 50 55 54 20 52 4f 55 54 | 49 4e 45 20 20 3c 22 27 |PUT ROUT|INE  <"'|
|00000340| 3a e8 20 22 45 4e 54 45 | 52 20 54 4f 54 41 4c 20 |:. "ENTE|R TOTAL |
|00000350| 4e 4f 2e 4f 46 20 52 45 | 53 55 4c 54 53 20 28 4e |NO.OF RE|SULTS (N|
|00000360| 29 20 61 6e 64 22 27 22 | 46 75 6c 6c 3d 46 20 6f |) and"'"|Full=F o|
|00000370| 72 20 53 68 6f 72 74 3d | 53 20 65 6e 74 72 79 20 |r Short=|S entry |
|00000380| 72 6f 75 74 69 6e 65 22 | 2c 4e 39 3a 44 24 3d be |routine"|,N9:D$=.|
|00000390| 3a f5 3a f2 69 6e 70 75 | 74 28 44 24 29 3a fd 20 |:.:.inpu|t(D$):. |
|000003a0| 5a 25 3e 4e 39 2d 31 0d | 01 54 30 e7 20 46 33 3d |Z%>N9-1.|.T0. F3=|
|000003b0| 33 20 f1 27 22 83 9d 84 | 3e 20 20 44 49 53 43 20 |3 .'"...|>  DISC |
|000003c0| 46 49 4c 45 20 47 45 4e | 45 52 41 54 4f 52 20 22 |FILE GEN|ERATOR "|
|000003d0| 27 3a f2 73 61 76 65 0d | 01 5e 33 e7 20 46 33 3d |':.save.|.^3. F3=|
|000003e0| 34 20 46 34 3d 31 3a f1 | 27 22 83 9d 84 3e 20 20 |4 F4=1:.|'"...>  |
|000003f0| 44 49 53 50 4c 41 59 20 | 52 4f 55 54 49 4e 45 20 |DISPLAY |ROUTINE |
|00000400| 20 3c 22 27 3a f2 64 69 | 73 70 0d 01 68 34 e7 20 | <"':.di|sp..h4. |
|00000410| 46 33 3d 35 20 f1 27 22 | 83 9d 84 3e 20 20 48 41 |F3=5 .'"|...>  HA|
|00000420| 52 44 43 4f 50 59 20 53 | 4f 55 52 43 45 20 46 49 |RDCOPY S|OURCE FI|
|00000430| 4c 45 20 20 3c 22 27 3a | f2 70 72 69 6e 74 0d 01 |LE  <"':|.print..|
|00000440| 7c 0e e7 20 46 33 3d 36 | 20 f2 65 64 0d 01 90 5d ||.. F3=6| .ed...]|
|00000450| e7 20 46 33 3d 37 20 f1 | 27 22 83 9d 84 3e 20 20 |. F3=7 .|'"...>  |
|00000460| 53 54 41 54 49 53 54 49 | 43 53 20 43 41 4c 43 55 |STATISTI|CS CALCU|
|00000470| 4c 41 54 49 4f 4e 20 20 | 3c 22 27 3a f2 73 74 61 |LATION  |<"':.sta|
|00000480| 74 73 3a f1 22 50 52 45 | 53 53 20 41 20 4b 45 59 |ts:."PRE|SS A KEY|
|00000490| 20 54 4f 20 43 4f 4e 54 | 49 4e 55 45 22 3a 64 65 | TO CONT|INUE":de|
|000004a0| 6c 3d a6 28 35 30 30 30 | 29 0d 01 a4 9d e7 20 46 |l=.(5000|)..... F|
|000004b0| 33 3d 38 20 f1 27 22 83 | 9d 84 3e 20 20 4f 50 45 |3=8 .'".|..>  OPE|
|000004c0| 52 41 54 49 4e 47 20 53 | 59 53 54 45 4d 20 43 41 |RATING S|YSTEM CA|
|000004d0| 4c 4c 20 28 65 67 20 2a | 43 41 54 20 3c 22 27 3a |LL (eg *|CAT <"':|
|000004e0| e8 22 45 6e 74 65 72 20 | 63 61 6c 6c 20 28 6b 65 |."Enter |call (ke|
|000004f0| 79 20 73 68 69 66 74 20 | 74 6f 20 73 63 72 6f 6c |y shift |to scrol|
|00000500| 6c 29 22 2c 53 57 24 3a | ef 31 34 3a ff 20 53 57 |l)",SW$:|.14:. SW|
|00000510| 24 3a ef 31 35 3a f1 22 | 83 9d 84 3e 20 20 50 72 |$:.15:."|...>  Pr|
|00000520| 65 73 73 20 61 20 6b 65 | 79 20 74 6f 20 65 6e 64 |ess a ke|y to end|
|00000530| 20 64 65 6c 61 79 20 20 | 3c 22 3a 64 65 6c 3d a6 | delay  |<":del=.|
|00000540| 28 32 30 30 30 29 0d 01 | ae 3b e7 20 46 33 3d 39 |(2000)..|.;. F3=9|
|00000550| 20 f1 27 22 83 9d 84 3e | 20 20 53 65 6c 65 63 74 | .'"...>|  Select|
|00000560| 20 73 65 72 69 61 6c 20 | 70 6f 72 74 20 61 6e 64 | serial |port and|
|00000570| 20 42 61 75 64 20 20 3c | 22 3a f2 73 65 72 69 61 | Baud  <|":.seria|
|00000580| 6c 0d 01 b8 12 e7 20 46 | 33 3d 31 30 20 f2 77 68 |l..... F|3=10 .wh|
|00000590| 65 72 65 0d 01 cc 0b fd | 20 46 33 3d 31 31 0d 01 |ere.....| F3=11..|
|000005a0| d6 1e eb 20 37 3a f1 27 | 22 83 9d 84 3e 20 20 46 |... 7:.'|"...>  F|
|000005b0| 49 4e 49 53 48 20 20 3c | 22 27 3a e0 0d 01 f4 05 |INISH  <|"':.....|
|000005c0| 3a 0d 02 d0 18 e7 20 49 | 25 28 6c 6f 25 29 83 32 |:..... I|%(lo%).2|
|000005d0| 34 30 3d 30 20 4a 39 3d | 32 0d 03 20 2d dd f2 73 |40=0 J9=|2.. -..s|
|000005e0| 74 61 74 73 3a e7 20 4e | 39 3d 30 20 f1 27 22 83 |tats:. N|9=0 .'".|
|000005f0| 9d 88 81 3e 20 20 4e 4f | 20 20 44 41 54 41 20 20 |...>  NO|  DATA  |
|00000600| 3c 89 22 27 3a e1 0d 03 | 70 59 f1 27 22 54 6f 20 |<."':...|pY.'"To |
|00000610| 70 72 6f 63 65 73 73 20 | 61 6c 6c 20 74 68 65 20 |process |all the |
|00000620| 64 61 74 61 20 65 6e 74 | 65 72 2e 2e 2e 2e 2e 30 |data ent|er.....0|
|00000630| 22 27 22 54 6f 20 70 72 | 6f 63 65 73 73 20 69 6e |"'"To pr|ocess in|
|00000640| 20 67 72 6f 75 70 73 20 | 65 6e 74 65 72 2e 2e 2e | groups |enter...|
|00000650| 2e 2e 2e 2e 2e 31 22 3a | 5a 31 3d a5 2d 34 38 0d |.....1":|Z1=.-48.|
|00000660| 03 7a 11 e7 20 5a 31 3e | 31 20 e5 20 8d 44 70 43 |.z.. Z1>|1 . .DpC|
|00000670| 0d 03 84 11 e7 20 5a 31 | 3d 31 20 8c 20 8d 74 7a |..... Z1|=1 . .tz|
|00000680| 44 0d 03 93 1a f1 22 88 | 82 50 72 6f 63 65 73 73 |D.....".|.Process|
|00000690| 69 6e 67 22 3a f2 63 6c | 65 61 72 0d 03 98 24 e3 |ing":.cl|ear...$.|
|000006a0| 20 4b 25 3d 30 20 b8 20 | 61 72 72 61 79 73 69 7a | K%=0 . |arraysiz|
|000006b0| 65 25 3a e3 20 50 25 3d | 31 20 b8 20 32 34 30 0d |e%:. P%=|1 . 240.|
|000006c0| 03 9d 31 e7 20 4b 25 2a | 32 34 30 2b 50 25 3d 4e |..1. K%*|240+P%=N|
|000006d0| 39 2b 31 20 8c 20 4b 25 | 3d 61 72 72 61 79 73 69 |9+1 . K%|=arraysi|
|000006e0| 7a 65 25 3a 50 25 3d 32 | 34 30 3a e5 8d 74 76 43 |ze%:P%=2|40:..tvC|
|000006f0| 0d 03 9f 2f e7 20 58 31 | 28 50 25 2c 4b 25 29 3c |.../. X1|(P%,K%)<|
|00000700| 2e 30 30 31 20 80 20 64 | 75 6d 6d 79 25 3d 30 20 |.001 . d|ummy%=0 |
|00000710| 8c 20 4e 33 3d 4e 33 2b | 31 3a e5 8d 74 76 43 0d |. N3=N3+|1:..tvC.|
|00000720| 03 a2 25 5a 31 3d 5a 31 | 2b 58 31 28 50 25 2c 4b |..%Z1=Z1|+X1(P%,K|
|00000730| 25 29 3a 5a 32 3d 5a 32 | 2b 58 31 28 50 25 2c 4b |%):Z2=Z2|+X1(P%,K|
|00000740| 25 29 5e 32 0d 03 ae 23 | e7 20 58 31 28 50 25 2c |%)^2...#|. X1(P%,|
|00000750| 4b 25 29 3e 6d 61 78 20 | 8c 20 6d 61 78 3d 58 31 |K%)>max |. max=X1|
|00000760| 28 50 25 2c 4b 25 29 0d | 03 b0 23 e7 20 58 31 28 |(P%,K%).|..#. X1(|
|00000770| 50 25 2c 4b 25 29 3c 6d | 69 6e 20 8c 20 6d 69 6e |P%,K%)<m|in . min|
|00000780| 3d 58 31 28 50 25 2c 4b | 25 29 0d 03 b6 0d ed 20 |=X1(P%,K|%)..... |
|00000790| 50 25 3a ed 20 4b 25 0d | 03 c0 21 4e 31 3d 4e 39 |P%:. K%.|..!N1=N9|
|000007a0| 2d 4e 33 3a f2 74 69 74 | 6c 65 3a f2 63 61 6c 63 |-N3:.tit|le:.calc|
|000007b0| 3a f2 6c 69 73 74 3a e1 | 0d 04 ba 2d e8 20 22 45 |:.list:.|...-. "E|
|000007c0| 6e 74 65 72 20 73 69 7a | 65 20 6f 66 20 62 6c 6f |nter siz|e of blo|
|000007d0| 63 6b 73 20 28 4e 35 25 | 29 22 2c 4e 35 25 3a f2 |cks (N5%|)",N5%:.|
|000007e0| 74 69 74 6c 65 0d 04 c4 | 0a f2 63 6c 65 61 72 0d |title...|..clear.|
|000007f0| 04 ec 2c e3 20 4b 25 3d | 30 20 b8 20 61 72 72 61 |..,. K%=|0 . arra|
|00000800| 79 73 69 7a 65 25 3a e3 | 20 50 25 3d 31 20 b8 20 |ysize%:.| P%=1 . |
|00000810| 32 34 30 3a 4d 25 3d 4d | 25 2b 31 0d 04 ed 12 f4 |240:M%=M|%+1.....|
|00000820| 20 50 52 49 4e 54 50 25 | 3b 22 20 22 3b 0d 04 ee | PRINTP%|;" ";...|
|00000830| 31 e7 20 4b 25 2a 32 34 | 30 2b 50 25 3d 4e 39 2b |1. K%*24|0+P%=N9+|
|00000840| 31 20 8c 20 4b 25 3d 61 | 72 72 61 79 73 69 7a 65 |1 . K%=a|rraysize|
|00000850| 25 3a 50 25 3d 32 34 30 | 3a e5 8d 54 46 45 0d 04 |%:P%=240|:..TFE..|
|00000860| f1 2f e7 20 58 31 28 50 | 25 2c 4b 25 29 3c 2e 30 |./. X1(P|%,K%)<.0|
|00000870| 30 31 20 80 20 64 75 6d | 6d 79 25 3d 30 20 8c 20 |01 . dum|my%=0 . |
|00000880| 4e 33 3d 4e 33 2b 31 3a | e5 8d 54 46 45 0d 04 f6 |N3=N3+1:|..TFE...|
|00000890| 25 5a 31 3d 5a 31 2b 58 | 31 28 50 25 2c 4b 25 29 |%Z1=Z1+X|1(P%,K%)|
|000008a0| 3a 5a 32 3d 5a 32 2b 58 | 31 28 50 25 2c 4b 25 29 |:Z2=Z2+X|1(P%,K%)|
|000008b0| 5e 32 0d 05 02 23 e7 20 | 58 31 28 50 25 2c 4b 25 |^2...#. |X1(P%,K%|
|000008c0| 29 3e 6d 61 78 20 8c 20 | 6d 61 78 3d 58 31 28 50 |)>max . |max=X1(P|
|000008d0| 25 2c 4b 25 29 0d 05 04 | 23 e7 20 58 31 28 50 25 |%,K%)...|#. X1(P%|
|000008e0| 2c 4b 25 29 3c 6d 69 6e | 20 8c 20 6d 69 6e 3d 58 |,K%)<min| . min=X|
|000008f0| 31 28 50 25 2c 4b 25 29 | 0d 05 06 2b e7 20 4d 25 |1(P%,K%)|...+. M%|
|00000900| 3e 4e 35 25 2d 31 20 4e | 31 3d 4e 35 25 2d 4e 33 |>N5%-1 N|1=N5%-N3|
|00000910| 3a f2 63 61 6c 63 3a f2 | 6c 69 73 74 3a f2 63 6c |:.calc:.|list:.cl|
|00000920| 65 61 72 0d 05 0a 0d ed | 20 50 25 3a ed 20 4b 25 |ear.....| P%:. K%|
|00000930| 0d 05 14 05 e1 0d 05 1e | 38 dd f2 63 6c 65 61 72 |........|8..clear|
|00000940| 3a 5a 31 3d 30 3a 5a 32 | 3d 30 3a 5a 33 3d 30 3a |:Z1=0:Z2|=0:Z3=0:|
|00000950| 5a 34 3d 30 3a 4e 33 3d | 30 3a 6d 61 78 3d 30 3a |Z4=0:N3=|0:max=0:|
|00000960| 6d 69 6e 3d 31 45 32 30 | 3a 4d 25 3d 30 0d 05 3c |min=1E20|:M%=0..<|
|00000970| 05 e1 0d 05 46 05 3a 0d | 05 50 38 dd f2 70 72 69 |....F.:.|.P8..pri|
|00000980| 6e 74 3a e7 20 4e 39 3d | 30 20 f1 27 22 83 9d 88 |nt:. N9=|0 .'"...|
|00000990| 81 3e 20 20 4e 4f 20 20 | 44 41 54 41 20 20 3c 89 |.>  NO  |DATA  <.|
|000009a0| 22 27 3a 64 65 6c 3d a6 | 28 32 35 30 29 3a e1 0d |"':del=.|(250):..|
|000009b0| 05 5a 48 f1 27 22 43 6f | 6e 66 69 72 6d 20 74 68 |.ZH.'"Co|nfirm th|
|000009c0| 61 74 20 61 20 68 61 72 | 64 63 6f 70 79 20 69 73 |at a har|dcopy is|
|000009d0| 20 77 61 6e 74 65 64 20 | 59 2f 4e 22 3a 59 24 3d | wanted |Y/N":Y$=|
|000009e0| be 3a e7 20 59 24 3c 3e | 22 59 22 20 80 20 59 24 |.:. Y$<>|"Y" . Y$|
|000009f0| 3c 3e 22 79 22 20 e1 0d | 05 64 39 ef 32 3a f1 27 |<>"y" ..|.d9.2:.'|
|00000a00| 22 46 69 6c 65 20 52 65 | 66 2e 69 73 3a 20 22 3b |"File Re|f.is: ";|
|00000a10| 72 65 66 24 3b 27 22 44 | 65 73 63 72 69 70 74 69 |ref$;'"D|escripti|
|00000a20| 6f 6e 20 69 73 3a 20 22 | 3b 41 24 3a 70 25 3d 31 |on is: "|;A$:p%=1|
|00000a30| 0d 05 6e 05 f5 0d 05 73 | 64 e3 20 4f 25 3d 70 25 |..n....s|d. O%=p%|
|00000a40| 20 b8 20 70 25 2b 35 3a | 40 25 3d 26 32 30 30 30 | . p%+5:|@%=&2000|
|00000a50| 30 33 3a f1 4f 25 2c 3b | 22 20 22 3b 3a 40 25 3d |03:.O%,;|" ";:@%=|
|00000a60| 26 30 36 3a 50 25 3d 4f | 25 83 32 34 30 3a 4b 25 |&06:P%=O|%.240:K%|
|00000a70| 3d 4f 25 81 32 34 30 3a | f1 20 a4 75 73 69 6e 67 |=O%.240:|. .using|
|00000a80| 28 73 68 61 70 65 24 2c | 58 31 28 50 25 2c 4b 25 |(shape$,|X1(P%,K%|
|00000a90| 29 29 3b 3a ed 4f 25 3a | f1 0d 05 78 13 70 25 3d |));:.O%:|...x.p%=|
|00000aa0| 70 25 2b 36 3a fd 20 4f | 25 3e 4e 39 0d 05 8c 08 |p%+6:. O|%>N9....|
|00000ab0| ef 33 3a e1 0d 05 a0 21 | dd f2 65 64 3a f1 22 45 |.3:....!|..ed:."E|
|00000ac0| 64 69 74 6f 72 20 66 6f | 72 20 64 61 74 61 20 66 |ditor fo|r data f|
|00000ad0| 69 6c 65 73 22 0d 05 aa | 70 f1 3a f1 22 52 65 6d |iles"...|p.:."Rem|
|00000ae0| 65 6d 62 65 72 20 64 61 | 74 61 20 63 61 6e 20 62 |ember da|ta can b|
|00000af0| 65 20 65 64 69 74 65 64 | 20 69 6e 74 6f 20 74 68 |e edited| into th|
|00000b00| 65 20 22 27 22 6e 65 77 | 20 66 69 6c 65 20 75 73 |e "'"new| file us|
|00000b10| 69 6e 67 20 74 68 65 20 | 65 64 69 74 69 6e 67 20 |ing the |editing |
|00000b20| 66 65 61 74 75 72 65 73 | 20 6f 66 22 27 22 74 68 |features| of"'"th|
|00000b30| 65 20 46 49 4c 45 20 49 | 4e 50 55 54 20 72 6f 75 |e FILE I|NPUT rou|
|00000b40| 74 69 6e 65 22 0d 05 c8 | 2e e7 20 4e 39 3d 30 20 |tine"...|.. N9=0 |
|00000b50| f1 27 22 83 9d 88 81 3e | 20 20 4e 4f 20 20 44 41 |.'"....>|  NO  DA|
|00000b60| 54 41 20 20 3c 89 22 27 | 3a 64 65 6c 3d a6 28 31 |TA  <."'|:del=.(1|
|00000b70| 30 30 29 0d 05 d2 2a f5 | 3a f1 27 22 83 9d 88 81 |00)...*.|:.'"....|
|00000b80| 3e 89 20 45 44 49 54 4f | 52 20 4d 45 4e 55 20 88 |>. EDITO|R MENU .|
|00000b90| 3c 89 20 20 45 6e 74 65 | 72 3a 2d 22 27 0d 05 dc |<.  Ente|r:-"'...|
|00000ba0| b4 20 f1 22 82 31 2e 2e | 2e 2e 2e 54 6f 20 61 6d |. .".1..|...To am|
|00000bb0| 65 6e 64 20 65 78 69 73 | 74 69 6e 67 20 76 61 6c |end exis|ting val|
|00000bc0| 75 65 73 22 27 22 82 32 | 2e 2e 2e 2e 2e 54 6f 20 |ues"'".2|.....To |
|00000bd0| 64 65 6c 65 74 65 20 65 | 78 69 73 74 69 6e 67 20 |delete e|xisting |
|00000be0| 76 61 6c 75 65 73 22 27 | 22 82 33 2e 2e 2e 2e 2e |values"'|".3.....|
|00000bf0| 54 6f 20 69 6e 73 65 72 | 74 20 76 61 6c 75 65 73 |To inser|t values|
|00000c00| 22 27 22 83 34 2e 2e 2e | 2e 2e 54 6f 20 61 64 64 |"'".4...|..To add|
|00000c10| 20 64 61 74 61 20 74 6f | 20 74 68 65 20 65 6e 64 | data to| the end|
|00000c20| 20 6f 66 20 66 69 6c 65 | 22 27 22 83 35 2e 2e 2e | of file|"'".5...|
|00000c30| 2e 2e 54 6f 20 6d 6f 64 | 69 66 79 20 61 6c 6c 20 |..To mod|ify all |
|00000c40| 64 61 74 61 20 62 79 20 | 61 20 66 61 63 74 6f 72 |data by |a factor|
|00000c50| 22 0d 05 e1 8b f1 22 85 | 36 2e 2e 2e 2e 2e 4c 6f |".....".|6.....Lo|
|00000c60| 61 64 20 66 72 6f 6d 20 | 70 6c 61 69 6e 20 42 42 |ad from |plain BB|
|00000c70| 43 20 46 50 20 64 61 74 | 61 20 66 69 6c 65 22 27 |C FP dat|a file"'|
|00000c80| 22 85 37 2e 2e 2e 2e 2e | 4c 6f 61 64 20 66 72 6f |".7.....|Load fro|
|00000c90| 6d 20 61 6e 20 41 53 43 | 49 49 20 66 69 6c 65 22 |m an ASC|II file"|
|00000ca0| 27 22 86 38 2e 2e 2e 2e | 2e 54 6f 20 6d 61 6b 65 |'".8....|.To make|
|00000cb0| 20 61 6e 20 4f 53 20 63 | 61 6c 6c 22 27 22 86 39 | an OS c|all"'".9|
|00000cc0| 2e 2e 2e 2e 2e 54 6f 20 | 72 65 74 75 72 6e 20 74 |.....To |return t|
|00000cd0| 6f 20 6d 61 69 6e 20 6d | 65 6e 75 22 0d 05 e3 0d |o main m|enu"....|
|00000ce0| f2 66 69 6c 28 31 32 39 | 29 0d 05 e6 0b 46 34 3d |.fil(129|)....F4=|
|00000cf0| a5 2d 34 38 0d 05 f0 3e | e7 20 46 34 3c 31 20 84 |.-48...>|. F4<1 .|
|00000d00| 20 46 34 3e 39 20 f1 22 | 83 9d 88 81 3e 20 4b 45 | F4>9 ."|....> KE|
|00000d10| 59 49 4e 47 20 45 52 52 | 4f 52 20 54 52 59 20 41 |YING ERR|OR TRY A|
|00000d20| 47 41 49 4e 20 3c 22 3a | 64 65 6c 3d a6 28 31 35 |GAIN <":|del=.(15|
|00000d30| 30 29 0d 06 0e 31 e7 20 | 46 34 3d 31 20 84 20 46 |0)...1. |F4=1 . F|
|00000d40| 34 3d 32 20 84 20 46 34 | 3d 33 20 8c 20 f1 22 3e |4=2 . F4|=3 . .">|
|00000d50| 20 45 44 49 54 20 46 49 | 4c 45 20 3c 22 3a f2 64 | EDIT FI|LE <":.d|
|00000d60| 69 73 70 0d 06 2c 13 e7 | 20 46 34 3d 34 20 8c 20 |isp..,..| F4=4 . |
|00000d70| f2 61 70 65 6e 64 0d 06 | 36 14 e7 20 46 34 3d 35 |.apend..|6.. F4=5|
|00000d80| 20 8c 20 f2 6d 6f 64 69 | 66 79 0d 06 40 42 e7 20 | . .modi|fy..@B. |
|00000d90| 46 34 3d 36 20 f1 22 83 | 9d 81 3e 20 20 50 6c 61 |F4=6 .".|..>  Pla|
|00000da0| 69 6e 20 42 42 43 20 6e | 75 6d 65 72 69 63 20 66 |in BBC n|umeric f|
|00000db0| 69 6c 65 20 69 6e 70 75 | 74 20 3c 22 3a f2 69 6f |ile inpu|t <":.io|
|00000dc0| 28 69 6e 63 25 2c 64 69 | 72 64 24 29 0d 06 4a 3f |(inc%,di|rd$)..J?|
|00000dd0| e7 20 46 34 3d 37 20 f1 | 22 83 9d 81 3e 20 20 49 |. F4=7 .|"...>  I|
|00000de0| 6e 70 75 74 20 41 53 43 | 49 49 20 73 70 6f 6f 6c |nput ASC|II spool|
|00000df0| 20 66 69 6c 65 20 3c 22 | 3a f2 61 73 63 69 69 28 | file <"|:.ascii(|
|00000e00| 69 6e 63 25 2c 64 69 72 | 64 24 29 0d 06 5e 9d e7 |inc%,dir|d$)..^..|
|00000e10| 20 46 34 3d 38 20 f1 27 | 22 83 9d 81 3e 20 20 4f | F4=8 .'|"...>  O|
|00000e20| 50 45 52 41 54 49 4e 47 | 20 53 59 53 54 45 4d 20 |PERATING| SYSTEM |
|00000e30| 43 41 4c 4c 20 28 65 67 | 20 2a 43 41 54 20 3c 22 |CALL (eg| *CAT <"|
|00000e40| 27 3a e8 22 45 6e 74 65 | 72 20 63 61 6c 6c 20 28 |':."Ente|r call (|
|00000e50| 6b 65 79 20 73 68 69 66 | 74 20 74 6f 20 73 63 72 |key shif|t to scr|
|00000e60| 6f 6c 6c 29 22 2c 53 57 | 24 3a ef 31 34 3a ff 20 |oll)",SW|$:.14:. |
|00000e70| 53 57 24 3a ef 31 35 3a | f1 22 83 9d 81 3e 20 20 |SW$:.15:|."...>  |
|00000e80| 50 72 65 73 73 20 61 20 | 6b 65 79 20 74 6f 20 65 |Press a |key to e|
|00000e90| 6e 64 20 64 65 6c 61 79 | 20 20 3c 22 3a 64 65 6c |nd delay|  <":del|
|00000ea0| 3d a6 28 32 30 30 30 29 | 0d 06 72 0a fd 20 46 34 |=.(2000)|..r.. F4|
|00000eb0| 3d 39 0d 06 7c 0d f2 75 | 70 64 61 74 65 3a e1 0d |=9..|..u|pdate:..|
|00000ec0| 06 9a 05 3a 0d 06 a4 20 | dd f2 64 65 6c 65 74 65 |...:... |..delete|
|00000ed0| 3a ea 20 49 25 2c 53 25 | 2c 54 25 2c 50 25 2c 4b |:. I%,S%|,T%,P%,K|
|00000ee0| 25 2c 4d 25 0d 06 a7 5d | f1 8a 30 2c 31 29 3b 22 |%,M%...]|..0,1);"|
|00000ef0| 31 20 44 45 4c 45 54 45 | 20 52 4f 55 54 49 4e 45 |1 DELETE| ROUTINE|
|00000f00| 20 20 20 44 65 6c 65 74 | 65 20 65 6e 74 72 69 65 |   Delet|e entrie|
|00000f10| 73 20 59 2f 4e 20 20 20 | 20 20 20 20 22 3a 53 57 |s Y/N   |    ":SW|
|00000f20| 24 3d be 3a e7 20 53 57 | 24 3c 3e 22 59 22 20 80 |$=.:. SW|$<>"Y" .|
|00000f30| 20 53 57 24 3c 3e 22 79 | 22 20 db 3a e5 8d 64 51 | SW$<>"y|" .:..dQ|
|00000f40| 46 0d 06 ae 61 f1 8a 30 | 2c 31 29 3b 22 45 6e 74 |F...a..0|,1);"Ent|
|00000f50| 65 72 20 61 72 72 61 79 | 20 73 75 62 73 63 72 69 |er array| subscri|
|00000f60| 70 74 73 20 6f 66 20 65 | 61 63 68 20 76 61 6c 75 |pts of e|ach valu|
|00000f70| 65 20 74 6f 20 62 65 20 | 64 65 6c 65 74 65 64 20 |e to be |deleted |
|00000f80| 74 68 65 6e 20 7a 65 72 | 6f 20 74 6f 20 74 65 72 |then zer|o to ter|
|00000f90| 6d 69 6e 61 74 65 22 3a | 64 65 6c 3d a6 28 31 35 |minate":|del=.(15|
|00000fa0| 30 29 0d 06 b8 87 f5 3a | 6c 6f 25 3d 6c 6f 25 2b |0).....:|lo%=lo%+|
|00000fb0| 31 3a f1 8a 30 2c 31 29 | 3b c4 37 35 2c 22 20 22 |1:..0,1)|;.75," "|
|00000fc0| 29 3b 8a 35 2c 31 29 3b | 3a e8 22 4e 65 78 74 20 |);.5,1);|:."Next |
|00000fd0| 73 75 62 73 63 72 69 70 | 74 22 2c 49 25 28 6c 6f |subscrip|t",I%(lo|
|00000fe0| 25 29 3a f1 49 25 28 6c | 6f 25 29 2c 4b 25 2a 32 |%):.I%(l|o%),K%*2|
|00000ff0| 34 30 2b 4c 25 2a 36 30 | 2b 36 30 20 3a f1 8a 30 |40+L%*60|+60 :..0|
|00001000| 2c 30 29 c4 31 35 2c 22 | 20 22 29 3a f2 70 6f 73 |,0).15,"| "):.pos|
|00001010| 6e 3a f1 8a 4a 39 2a 31 | 33 2b 34 2c 49 39 2b 32 |n:..J9*1|3+4,I9+2|
|00001020| 29 3b c4 39 2c 22 20 22 | 29 0d 06 c2 4f fd 20 49 |);.9," "|)...O. I|
|00001030| 25 28 6c 6f 25 29 3e 4b | 25 2a 32 34 30 2b 4c 25 |%(lo%)>K|%*240+L%|
|00001040| 2a 36 30 2b 36 30 20 84 | 20 49 25 28 6c 6f 25 29 |*60+60 .| I%(lo%)|
|00001050| 3c 4b 25 2a 32 34 30 2b | 4c 25 2a 36 30 2b 31 20 |<K%*240+|L%*60+1 |
|00001060| 84 20 49 25 28 6c 6f 25 | 29 3e 4e 39 20 84 20 49 |. I%(lo%|)>N9 . I|
|00001070| 25 28 6c 6f 25 29 3d 30 | 0d 06 cc 39 e7 20 49 25 |%(lo%)=0|...9. I%|
|00001080| 28 6c 6f 25 29 3c 3e 30 | 20 8c 20 f1 8a 30 2c 30 |(lo%)<>0| . ..0,0|
|00001090| 29 22 85 88 4f 75 74 20 | 6f 66 20 72 61 6e 67 65 |)"..Out |of range|
|000010a0| 22 3a 6c 6f 25 3d 6c 6f | 25 2d 31 3a e5 8d 74 78 |":lo%=lo|%-1:..tx|
|000010b0| 46 0d 06 d1 1c e7 20 4b | 25 3c 4e 39 20 81 32 34 |F..... K|%<N9 .24|
|000010c0| 30 2b 31 20 80 20 4c 25 | 3c 4f 25 20 e1 0d 06 d6 |0+1 . L%|<O% ....|
|000010d0| 15 61 63 63 25 3d 30 20 | 3a 6c 6f 25 3d 6c 6f 25 |.acc%=0 |:lo%=lo%|
|000010e0| 2d 31 0d 06 e0 0f e3 20 | 4d 25 3d 31 20 b8 20 4e |-1..... |M%=1 . N|
|000010f0| 39 0d 06 ea 4e 61 63 63 | 25 3d 61 63 63 25 2b 31 |9...Nacc|%=acc%+1|
|00001100| 3a 50 25 3d 61 63 63 25 | 83 32 34 30 3a 4b 25 3d |:P%=acc%|.240:K%=|
|00001110| 61 63 63 25 81 32 34 30 | 3a 53 25 3d 4d 25 83 32 |acc%.240|:S%=M%.2|
|00001120| 34 30 3a 54 25 3d 4d 25 | 81 32 34 30 3a 58 28 50 |40:T%=M%|.240:X(P|
|00001130| 25 2c 4b 25 29 3d 58 31 | 28 53 25 2c 54 25 29 0d |%,K%)=X1|(S%,T%).|
|00001140| 06 f4 28 e3 20 4c 3d 31 | 20 b8 20 6c 6f 25 3a e7 |..(. L=1| . lo%:.|
|00001150| 20 4d 25 3d 49 25 28 4c | 29 20 8c 20 61 63 63 25 | M%=I%(L|) . acc%|
|00001160| 3d 61 63 63 25 2d 31 0d | 06 f9 09 ed 20 4c 3a ed |=acc%-1.|.... L:.|
|00001170| 0d 07 08 3c e3 20 4d 25 | 3d 31 20 b8 20 61 63 63 |...<. M%|=1 . acc|
|00001180| 25 3a 50 25 3d 4d 25 83 | 32 34 30 3a 4b 25 3d 4d |%:P%=M%.|240:K%=M|
|00001190| 25 81 32 34 30 3a 58 31 | 28 50 25 2c 4b 25 29 3d |%.240:X1|(P%,K%)=|
|000011a0| 58 28 50 25 2c 4b 25 29 | 3a ed 4d 25 0d 07 12 38 |X(P%,K%)|:.M%...8|
|000011b0| e3 20 4d 25 3d 61 63 63 | 25 2b 31 20 b8 20 4e 39 |. M%=acc|%+1 . N9|
|000011c0| 3a 50 25 3d 4d 25 83 32 | 34 30 3a 4b 25 3d 4d 25 |:P%=M%.2|40:K%=M%|
|000011d0| 81 32 34 30 3a 58 31 28 | 50 25 2c 4b 25 29 3d 30 |.240:X1(|P%,K%)=0|
|000011e0| 3a ed 4d 25 0d 07 1c 0b | 4e 39 3d 61 63 63 25 0d |:.M%....|N9=acc%.|
|000011f0| 07 3a 0b f2 70 65 65 70 | 3a e1 0d 07 44 05 3a 0d |.:..peep|:...D.:.|
|00001200| 07 58 6e dd f2 70 65 65 | 70 3a f1 8a 30 2c 31 29 |.Xn..pee|p:..0,1)|
|00001210| 3b 22 54 6f 20 64 69 73 | 70 6c 61 79 20 61 6d 65 |;"To dis|play ame|
|00001220| 6e 64 65 64 20 66 69 6c | 65 20 75 73 65 20 61 6d |nded fil|e use am|
|00001230| 65 6e 64 20 20 20 20 20 | 20 22 27 22 72 6f 75 74 |end     | "'"rout|
|00001240| 69 6e 65 20 28 68 69 74 | 20 73 70 61 63 65 20 62 |ine (hit| space b|
|00001250| 61 72 20 74 6f 20 63 6f | 6e 74 69 6e 75 65 29 22 |ar to co|ntinue)"|
|00001260| 3a f5 20 fd 20 a5 3d 33 | 32 3a db 3a e1 0d 07 62 |:. . .=3|2:.:...b|
|00001270| 05 3a 0d 07 6c 0c dd f2 | 69 6e 73 65 72 74 0d 07 |.:..l...|insert..|
|00001280| 6f 5e f1 8a 30 2c 31 29 | 3b 22 83 9d 81 49 4e 53 |o^..0,1)|;"...INS|
|00001290| 45 52 54 49 4f 4e 20 52 | 4f 55 54 49 4e 45 20 20 |ERTION R|OUTINE  |
|000012a0| 9c 87 49 6e 73 65 72 74 | 20 64 61 74 61 20 59 2f |..Insert| data Y/|
|000012b0| 4e 3f 20 20 20 20 20 20 | 22 3a 53 57 24 3d be 3a |N?      |":SW$=.:|
|000012c0| e7 20 53 57 24 3c 3e 22 | 59 22 20 80 20 53 57 24 |. SW$<>"|Y" . SW$|
|000012d0| 3c 3e 22 79 22 20 8c 20 | 8d 74 54 47 0d 07 76 8e |<>"y" . |.tTG..v.|
|000012e0| f1 8a 30 2c 30 29 3b 22 | 45 6e 74 65 72 20 61 72 |..0,0);"|Enter ar|
|000012f0| 72 61 79 20 73 75 62 73 | 63 72 69 70 74 73 20 6f |ray subs|cripts o|
|00001300| 66 20 76 61 6c 75 65 20 | 61 66 74 65 72 22 27 22 |f value |after"'"|
|00001310| 77 68 69 63 68 20 74 68 | 65 20 6e 65 77 20 76 61 |which th|e new va|
|00001320| 6c 75 65 20 69 73 20 74 | 6f 20 62 65 20 69 6e 73 |lue is t|o be ins|
|00001330| 65 72 74 65 64 22 27 22 | 74 68 65 6e 20 7a 65 72 |erted"'"|then zer|
|00001340| 6f 20 74 6f 20 74 65 72 | 6d 69 6e 61 74 65 22 3a |o to ter|minate":|
|00001350| 64 65 6c 3d a6 28 31 30 | 30 29 3a f1 8a 30 2c 30 |del=.(10|0):..0,0|
|00001360| 29 3b c4 34 30 2c 22 20 | 22 29 0d 07 80 87 f5 3a |);.40," |").....:|
|00001370| 6c 6f 25 3d 6c 6f 25 2b | 31 3a f1 8a 30 2c 31 29 |lo%=lo%+|1:..0,1)|
|00001380| 3b c4 37 35 2c 22 20 22 | 29 3b 8a 35 2c 31 29 3b |;.75," "|);.5,1);|
|00001390| 3a e8 22 4e 65 78 74 20 | 73 75 62 73 63 72 69 70 |:."Next |subscrip|
|000013a0| 74 22 2c 49 25 28 6c 6f | 25 29 3a f1 49 25 28 6c |t",I%(lo|%):.I%(l|
|000013b0| 6f 25 29 2c 4b 25 2a 32 | 34 30 2b 4c 25 2a 36 30 |o%),K%*2|40+L%*60|
|000013c0| 2b 36 30 20 3a f1 8a 30 | 2c 30 29 c4 31 35 2c 22 |+60 :..0|,0).15,"|
|000013d0| 20 22 29 3a f2 70 6f 73 | 6e 3a 3a f1 8a 4a 39 2a | "):.pos|n::..J9*|
|000013e0| 31 33 2b 31 30 2c 49 39 | 2b 32 29 3b 22 82 3c 87 |13+10,I9|+2);".<.|
|000013f0| 22 0d 07 8a 4f fd 20 49 | 25 28 6c 6f 25 29 3e 4b |"...O. I|%(lo%)>K|
|00001400| 25 2a 32 34 30 2b 4c 25 | 2a 36 30 2b 36 30 20 84 |%*240+L%|*60+60 .|
|00001410| 20 49 25 28 6c 6f 25 29 | 3c 4b 25 2a 32 34 30 2b | I%(lo%)|<K%*240+|
|00001420| 4c 25 2a 36 30 2b 31 20 | 84 20 49 25 28 6c 6f 25 |L%*60+1 |. I%(lo%|
|00001430| 29 3e 4e 39 20 84 20 49 | 25 28 6c 6f 25 29 3d 30 |)>N9 . I|%(lo%)=0|
|00001440| 0d 07 94 39 e7 20 49 25 | 28 6c 6f 25 29 3c 3e 30 |...9. I%|(lo%)<>0|
|00001450| 20 8c 20 f1 8a 30 2c 30 | 29 22 85 88 4f 75 74 20 | . ..0,0|)"..Out |
|00001460| 6f 66 20 72 61 6e 67 65 | 22 3a 6c 6f 25 3d 6c 6f |of range|":lo%=lo|
|00001470| 25 2d 31 3a e5 8d 74 40 | 47 0d 07 99 1c e7 20 4b |%-1:..t@|G..... K|
|00001480| 25 3c 4e 39 20 81 32 34 | 30 2b 31 20 80 20 4c 25 |%<N9 .24|0+1 . L%|
|00001490| 3c 4f 25 20 e1 0d 07 9e | 14 61 63 63 25 3d 30 3a |<O% ....|.acc%=0:|
|000014a0| 6c 6f 25 3d 6c 6f 25 2d | 31 0d 07 a8 0f e3 20 4d |lo%=lo%-|1..... M|
|000014b0| 25 3d 31 20 b8 20 4e 39 | 0d 07 b2 4e 61 63 63 25 |%=1 . N9|...Nacc%|
|000014c0| 3d 61 63 63 25 2b 31 3a | 50 25 3d 61 63 63 25 83 |=acc%+1:|P%=acc%.|
|000014d0| 32 34 30 3a 4b 25 3d 61 | 63 63 25 81 32 34 30 3a |240:K%=a|cc%.240:|
|000014e0| 53 25 3d 4d 25 83 32 34 | 30 3a 54 25 3d 4d 25 81 |S%=M%.24|0:T%=M%.|
|000014f0| 32 34 30 3a 58 28 50 25 | 2c 4b 25 29 3d 58 31 28 |240:X(P%|,K%)=X1(|
|00001500| 53 25 2c 54 25 29 0d 07 | bc 75 e3 20 4c 3d 31 20 |S%,T%)..|.u. L=1 |
|00001510| b8 20 6c 6f 25 3a e7 20 | 4d 25 3d 49 25 28 4c 29 |. lo%:. |M%=I%(L)|
|00001520| 20 8c 20 61 63 63 25 3d | 61 63 63 25 2b 31 3a f1 | . acc%=|acc%+1:.|
|00001530| 8a 30 2c 30 29 3b c4 31 | 32 30 2c 22 20 22 29 3b |.0,0);.1|20," ");|
|00001540| 8a 35 2c 31 29 3b 22 56 | 61 6c 75 65 20 61 66 74 |.5,1);"V|alue aft|
|00001550| 65 72 20 22 3b 4d 25 3b | 3a 50 25 3d 61 63 63 25 |er ";M%;|:P%=acc%|
|00001560| 83 32 34 30 3a 4b 25 3d | 61 63 63 25 81 32 34 30 |.240:K%=|acc%.240|
|00001570| 3a e8 20 58 28 50 25 2c | 4b 25 29 0d 07 c6 0b ed |:. X(P%,|K%).....|
|00001580| 20 4c 3a ed 4d 25 0d 07 | d0 3a e3 20 4d 25 3d 31 | L:.M%..|.:. M%=1|
|00001590| 20 b8 20 61 63 63 25 3a | 50 25 3d 4d 25 83 32 34 | . acc%:|P%=M%.24|
|000015a0| 30 3a 4b 25 3d 4d 25 81 | 32 34 30 3a 58 31 28 50 |0:K%=M%.|240:X1(P|
|000015b0| 25 2c 4b 25 29 3d 58 28 | 50 25 2c 4b 25 29 3a ed |%,K%)=X(|P%,K%):.|
|000015c0| 0d 07 da 0b 4e 39 3d 61 | 63 63 25 0d 07 f8 23 f2 |....N9=a|cc%...#.|
|000015d0| 70 65 65 70 3a f2 75 70 | 64 61 74 65 3a 4b 25 3d |peep:.up|date:K%=|
|000015e0| 61 72 72 61 79 73 69 7a | 65 25 2b 31 3a e1 0d 07 |arraysiz|e%+1:...|
|000015f0| fd 05 3a 0d 08 02 30 dd | f2 61 70 65 6e 64 3a ea |..:...0.|.apend:.|
|00001600| 20 4e 41 2c 50 25 2c 49 | 25 2c 4b 25 2c 51 25 3a | NA,P%,I|%,K%,Q%:|
|00001610| e7 20 4e 39 3e 35 20 51 | 25 3d 35 20 8b 20 51 25 |. N9>5 Q|%=5 . Q%|
|00001620| 3d 4e 39 0d 08 0c 4f f1 | 27 3b 22 83 9d 81 41 50 |=N9...O.|';"...AP|
|00001630| 45 4e 44 20 52 4f 55 54 | 49 4e 45 20 20 9c 87 4e |END ROUT|INE  ..N|
|00001640| 6f 2e 6f 66 20 6e 65 77 | 20 76 61 6c 75 65 73 22 |o.of new| values"|
|00001650| 3b 3a e8 4e 41 3a f1 27 | 3b 22 50 6f 73 69 74 69 |;:.NA:.'|;"Positi|
|00001660| 6f 6e 20 4e 6f 2e 20 44 | 61 74 61 20 76 61 6c 75 |on No. D|ata valu|
|00001670| 65 22 0d 08 11 5b e3 20 | 49 25 3d 4e 39 2d 51 25 |e"...[. |I%=N9-Q%|
|00001680| 20 b8 20 4e 39 3a 50 25 | 3d 49 25 20 83 32 34 30 | . N9:P%|=I% .240|
|00001690| 3a 4b 25 3d 49 25 20 81 | 32 34 30 3a f1 20 a4 75 |:K%=I% .|240:. .u|
|000016a0| 73 69 6e 67 28 22 2a 2a | 2a 2a 22 2c 49 25 29 2c |sing("**|**",I%),|
|000016b0| 20 a4 75 73 69 6e 67 28 | 73 68 61 70 65 24 2c 58 | .using(|shape$,X|
|000016c0| 31 28 50 25 2c 4b 25 29 | 29 3a ed 49 25 0d 08 16 |1(P%,K%)|):.I%...|
|000016d0| 15 e3 20 49 25 3d 4e 39 | 2b 31 20 b8 20 4e 39 2b |.. I%=N9|+1 . N9+|
|000016e0| 4e 41 0d 08 20 3e f1 20 | 22 45 4e 54 45 52 20 58 |NA.. >. |"ENTER X|
|000016f0| 31 28 22 3b 49 25 3b 22 | 29 22 3b 3a 50 25 3d 49 |1(";I%;"|)";:P%=I|
|00001700| 25 20 83 32 34 30 3a 4b | 25 3d 49 25 20 81 32 34 |% .240:K|%=I% .24|
|00001710| 30 3a e8 58 31 28 50 25 | 2c 4b 25 29 3a ed 49 25 |0:.X1(P%|,K%):.I%|
|00001720| 0d 08 2a 0b f2 75 70 64 | 61 74 65 0d 08 34 16 4e |..*..upd|ate..4.N|
|00001730| 39 3d 4e 39 2b 4e 41 3a | db 3a f2 70 65 65 70 3a |9=N9+NA:|.:.peep:|
|00001740| e1 0d 08 3e 05 3a 0d 09 | c4 46 dd f2 6d 6f 64 69 |...>.:..|.F..modi|
|00001750| 66 79 3a db 3a f1 8a 30 | 2c 31 29 3b 22 83 9d 81 |fy:.:..0|,1);"...|
|00001760| 4d 4f 44 49 46 59 20 52 | 4f 55 54 49 4e 45 20 20 |MODIFY R|OUTINE  |
|00001770| 9c 87 4b 65 79 20 63 68 | 6f 69 63 65 3f 22 3a ea |..Key ch|oice?":.|
|00001780| 20 50 25 2c 4b 25 2c 4d | 25 2c 4d 24 0d 09 ce 65 | P%,K%,M|%,M$...e|
|00001790| f1 27 22 4d 75 6c 74 2d | 4d 3b 44 69 76 2d 44 3b |.'"Mult-|M;Div-D;|
|000017a0| 41 64 64 2d 41 3b 53 75 | 62 2d 53 3b 50 6f 77 65 |Add-A;Su|b-S;Powe|
|000017b0| 72 2d 50 3b 52 6f 6f 74 | 2d 52 22 27 22 53 20 67 |r-P;Root|-R"'"S g|
|000017c0| 69 76 65 73 20 63 6f 6e | 2d 58 2e 20 41 64 64 20 |ives con|-X. Add |
|000017d0| 6e 65 67 20 63 6f 6e 20 | 66 6f 72 20 58 2d 63 6f |neg con |for X-co|
|000017e0| 6e 22 3a 4d 24 3d be 3a | f1 22 83 9d 81 22 3b 4d |n":M$=.:|."...";M|
|000017f0| 24 0d 09 d8 2e e7 20 4d | 24 3c 3e 22 52 22 20 8c |$..... M|$<>"R" .|
|00001800| 20 e8 22 45 6e 74 65 72 | 20 63 6f 6e 73 74 61 6e | ."Enter| constan|
|00001810| 74 20 6f 72 20 70 6f 77 | 65 72 22 2c 63 6f 6e 0d |t or pow|er",con.|
|00001820| 09 e2 24 20 e3 20 4d 25 | 3d 31 20 b8 20 4e 39 3a |..$ . M%|=1 . N9:|
|00001830| 50 25 3d 4d 25 83 32 34 | 30 3a 4b 25 3d 4d 25 81 |P%=M%.24|0:K%=M%.|
|00001840| 32 34 30 0d 09 ec 2f e7 | 20 4d 24 3d 22 4d 22 20 |240.../.| M$="M" |
|00001850| 84 20 4d 24 3d 22 6d 22 | 20 8c 20 58 31 28 50 25 |. M$="m"| . X1(P%|
|00001860| 2c 4b 25 29 3d 58 31 28 | 50 25 2c 4b 25 29 2a 63 |,K%)=X1(|P%,K%)*c|
|00001870| 6f 6e 0d 09 f6 2f e7 20 | 4d 24 3d 22 44 22 20 84 |on.../. |M$="D" .|
|00001880| 20 4d 24 3d 22 64 22 20 | 8c 20 58 31 28 50 25 2c | M$="d" |. X1(P%,|
|00001890| 4b 25 29 3d 58 31 28 50 | 25 2c 4b 25 29 2f 63 6f |K%)=X1(P|%,K%)/co|
|000018a0| 6e 0d 0a 00 2f e7 20 4d | 24 3d 22 41 22 20 84 20 |n.../. M|$="A" . |
|000018b0| 4d 24 3d 22 61 22 20 8c | 20 58 31 28 50 25 2c 4b |M$="a" .| X1(P%,K|
|000018c0| 25 29 3d 58 31 28 50 25 | 2c 4b 25 29 2b 63 6f 6e |%)=X1(P%|,K%)+con|
|000018d0| 0d 0a 0a 2f e7 20 4d 24 | 3d 22 53 22 20 84 20 4d |.../. M$|="S" . M|
|000018e0| 24 3d 22 73 22 20 8c 20 | 58 31 28 50 25 2c 4b 25 |$="s" . |X1(P%,K%|
|000018f0| 29 3d 58 31 28 50 25 2c | 4b 25 29 2d 63 6f 6e 0d |)=X1(P%,|K%)-con.|
|00001900| 0a 0f 2f e7 20 4d 24 3d | 22 50 22 20 84 20 4d 24 |../. M$=|"P" . M$|
|00001910| 3d 22 70 22 20 8c 20 58 | 31 28 50 25 2c 4b 25 29 |="p" . X|1(P%,K%)|
|00001920| 3d 58 31 28 50 25 2c 4b | 25 29 5e 63 6f 6e 0d 0a |=X1(P%,K|%)^con..|
|00001930| 11 2e e7 20 4d 24 3d 22 | 52 22 20 84 20 4d 24 3d |... M$="|R" . M$=|
|00001940| 22 72 22 20 8c 20 58 31 | 28 50 25 2c 4b 25 29 3d |"r" . X1|(P%,K%)=|
|00001950| b6 28 58 31 28 50 25 2c | 4b 25 29 29 0d 0a 14 08 |.(X1(P%,|K%))....|
|00001960| ed 20 4d 25 0d 0a 1e 13 | db 3a f2 70 65 65 70 3a |. M%....|.:.peep:|
|00001970| f2 75 70 64 61 74 65 0d | 0a 28 06 20 e1 0d 0a 32 |.update.|.(. ...2|
|00001980| 05 3a 0d 0a 3c 85 dd f2 | 75 70 64 61 74 65 3a f1 |.:..<...|update:.|
|00001990| 22 83 4f 4c 44 20 46 49 | 4c 45 20 44 45 53 43 52 |".OLD FI|LE DESCR|
|000019a0| 49 50 54 49 4f 4e 20 49 | 53 3a 22 27 41 24 3b 27 |IPTION I|S:"'A$;'|
|000019b0| 22 85 44 4f 20 59 4f 55 | 20 57 49 53 48 20 54 4f |".DO YOU| WISH TO|
|000019c0| 20 55 50 44 41 54 45 20 | 49 54 20 59 2f 4e 3f 22 | UPDATE |IT Y/N?"|
|000019d0| 3a 4d 24 3d be 3a e7 20 | 4d 24 3d 22 59 22 20 84 |:M$=.:. |M$="Y" .|
|000019e0| 20 4d 24 3d 22 79 22 20 | 8c 20 e8 22 45 6e 74 65 | M$="y" |. ."Ente|
|000019f0| 72 20 61 20 6e 65 77 20 | 64 65 73 63 72 69 70 74 |r a new |descript|
|00001a00| 69 6f 6e 22 2c 41 24 0d | 0a 46 05 e1 0d 0f a0 0b |ion",A$.|.F......|
|00001a10| dd f2 74 69 74 6c 65 0d | 0f a3 61 f1 27 22 20 44 |..title.|..a.'" D|
|00001a20| 6f 20 79 6f 75 20 77 69 | 73 68 20 74 6f 20 70 72 |o you wi|sh to pr|
|00001a30| 69 6e 74 20 61 20 68 61 | 72 64 63 6f 70 79 20 61 |int a ha|rdcopy a|
|00001a40| 73 20 77 65 6c 6c 20 61 | 73 20 61 20 73 63 72 65 |s well a|s a scre|
|00001a50| 65 6e 20 63 6f 70 79 20 | 59 2f 4e 22 3a 59 24 3d |en copy |Y/N":Y$=|
|00001a60| be 3a e7 20 59 24 3d 22 | 59 22 20 84 20 59 24 3d |.:. Y$="|Y" . Y$=|
|00001a70| 22 79 22 20 8c 20 ef 32 | 0d 0f a5 31 f1 27 22 46 |"y" . .2|...1.'"F|
|00001a80| 69 6c 65 20 52 65 66 2e | 69 73 3a 20 22 3b 72 65 |ile Ref.|is: ";re|
|00001a90| 66 24 3b 27 22 44 65 73 | 63 72 69 70 74 69 6f 6e |f$;'"Des|cription|
|00001aa0| 20 69 73 3a 20 22 3b 41 | 24 0d 0f aa 29 e7 20 59 | is: ";A|$...). Y|
|00001ab0| 24 3d 22 59 22 20 84 20 | 59 24 3d 22 79 22 20 8c |$="Y" . |Y$="y" .|
|00001ac0| 20 ef 31 2c 32 37 2c 37 | 37 20 8b 20 e5 20 8d 54 | .1,27,7|7 . . .T|
|00001ad0| 44 50 0d 0f d2 60 ef 31 | 2c 32 37 2c 39 35 2c 30 |DP...`.1|,27,95,0|
|00001ae0| 3a f1 27 22 20 20 20 20 | 4d 65 61 6e 20 20 56 61 |:.'"    |Mean  Va|
|00001af0| 72 69 61 6e 63 65 20 20 | 53 74 64 2e 44 76 6e 2e |riance  |Std.Dvn.|
|00001b00| 20 20 53 74 64 2e 45 72 | 72 2e 20 20 20 43 56 25 |  Std.Er|r.   CV%|
|00001b10| 20 20 20 4d 61 78 2e 76 | 61 6c 2e 20 4d 69 6e 2e |   Max.v|al. Min.|
|00001b20| 76 61 6c 2e 20 20 52 61 | 6e 67 65 20 20 20 20 20 |val.  Ra|nge     |
|00001b30| 4e 22 0d 0f dc 0f f1 3a | ef 33 3a 2a 46 58 33 2c |N".....:|.3:*FX3,|
|00001b40| 30 0d 10 04 05 3a 0d 10 | 68 05 e1 0d 10 7c 05 3a |0....:..|h....|.:|
|00001b50| 0d 11 94 0a dd f2 6c 69 | 73 74 0d 11 9e 56 e7 20 |......li|st...V. |
|00001b60| 59 24 3d 22 59 22 20 84 | 20 59 24 3d 22 79 22 20 |Y$="Y" .| Y$="y" |
|00001b70| ef 32 3a 40 25 3d 26 32 | 30 33 30 39 3a f1 20 4d |.2:@%=&2|0309:. M|
|00001b80| 31 2c 53 31 2c 53 32 2c | 53 33 2c 43 2c 6d 61 78 |1,S1,S2,|S3,C,max|
|00001b90| 2c 6d 69 6e 2c 6d 61 78 | 2d 6d 69 6e 3b 3a 40 25 |,min,max|-min;:@%|
|00001ba0| 3d 26 31 30 3a f1 8a 37 | 38 29 3b 4e 31 3a ef 33 |=&10:..7|8);N1:.3|
|00001bb0| 0d 11 a8 b2 e7 20 59 24 | 3c 3e 22 59 22 20 80 20 |..... Y$|<>"Y" . |
|00001bc0| 59 24 3c 3e 22 79 22 20 | 40 25 3d 26 32 30 33 30 |Y$<>"y" |@%=&2030|
|00001bd0| 38 3a f1 27 22 20 20 4d | 45 41 4e 20 20 20 20 53 |8:.'"  M|EAN    S|
|00001be0| 54 44 2e 44 56 4e 2e 20 | 20 20 20 43 56 25 20 20 |TD.DVN. |   CV%  |
|00001bf0| 20 20 20 20 4e 55 4d 42 | 45 52 22 27 3b 4d 31 2c |    NUMB|ER"';M1,|
|00001c00| 53 32 2c 43 2c 3b 3a 40 | 25 3d 26 32 30 31 30 39 |S2,C,;:@|%=&20109|
|00001c10| 3a f1 20 4e 31 3a 40 25 | 3d 26 32 30 33 30 38 3a |:. N1:@%|=&20308:|
|00001c20| f1 22 56 61 72 69 61 6e | 63 65 20 53 74 64 2e 45 |."Varian|ce Std.E|
|00001c30| 72 72 6f 72 20 20 4d 61 | 78 20 20 20 20 4d 69 6e |rror  Ma|x    Min|
|00001c40| 22 27 3b 53 31 2c 53 33 | 2c 6d 61 78 2c 6d 69 6e |"';S1,S3|,max,min|
|00001c50| 3a 40 25 3d 26 31 30 3a | 64 65 6c 3d a6 20 32 30 |:@%=&10:|del=. 20|
|00001c60| 30 30 0d 12 16 05 e1 0d | 12 2a 05 3a 0d 13 92 0a |00......|.*.:....|
|00001c70| dd f2 63 61 6c 63 0d 13 | 9c 44 4d 31 3d 5a 31 2f |..calc..|.DM1=Z1/|
|00001c80| 4e 31 3a 53 31 3d 28 5a | 32 2d 5a 31 5e 32 2f 4e |N1:S1=(Z|2-Z1^2/N|
|00001c90| 31 29 2f 28 4e 31 2d 31 | 29 3a 53 32 3d b6 28 53 |1)/(N1-1|):S2=.(S|
|00001ca0| 31 29 3a 43 3d 53 32 2f | 4d 31 2a 31 30 30 3a 53 |1):C=S2/|M1*100:S|
|00001cb0| 33 3d 53 32 2f b6 28 4e | 31 29 0d 14 1e 05 e1 0d |3=S2/.(N|1)......|
|00001cc0| 14 28 05 3a 0d 14 50 14 | dd f2 69 6f 28 69 6e 63 |.(.:..P.|..io(inc|
|00001cd0| 25 2c 64 69 72 64 24 29 | 0d 14 5a 0e ea 20 4a 25 |%,dird$)|..Z.. J%|
|00001ce0| 2c 4b 25 2c 4e 25 0d 14 | 64 32 f1 27 22 45 6e 74 |,K%,N%..|d2.'"Ent|
|00001cf0| 65 72 20 74 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |er the f|ollowing|
|00001d00| 3a 2d 22 3a ff 20 28 22 | 6d 6f 75 6e 74 20 22 2b |:-":. ("|mount "+|
|00001d10| c3 28 69 6e 63 25 29 29 | 0d 14 6e 33 f1 22 20 20 |.(inc%))|..n3."  |
|00001d20| 46 69 6c 65 20 72 65 66 | 65 72 65 6e 63 65 20 63 |File ref|erence c|
|00001d30| 6f 64 65 22 3a e8 72 65 | 66 24 3a ff 20 28 22 44 |ode":.re|f$:. ("D|
|00001d40| 49 52 20 22 2b 64 69 72 | 64 24 29 0d 14 78 0d 66 |IR "+dir|d$)..x.f|
|00001d50| 3d ad 28 72 65 66 24 29 | 0d 14 82 2e e7 20 66 3d |=.(ref$)|..... f=|
|00001d60| 30 20 f1 27 22 85 88 46 | 69 6c 65 20 22 3b 72 65 |0 .'"..F|ile ";re|
|00001d70| 66 24 3b 22 20 6e 6f 74 | 20 66 6f 75 6e 64 22 3a |f$;" not| found":|
|00001d80| e5 20 8d 54 58 55 0d 14 | 8c 3a 4e 25 3d 30 3a f5 |. .TXU..|.:N%=0:.|
|00001d90| 20 4e 25 3d 4e 25 2b 31 | 3a 4a 25 3d 4e 25 83 32 | N%=N%+1|:J%=N%.2|
|00001da0| 34 30 3a 4b 25 3d 4e 25 | 81 32 34 30 3a e8 23 66 |40:K%=N%|.240:.#f|
|00001db0| 2c 58 31 28 4a 25 2c 4b | 25 29 3a fd 20 c5 23 66 |,X1(J%,K|%):. .#f|
|00001dc0| 0d 14 96 0d d9 23 66 3a | 4e 39 3d 4e 25 0d 15 18 |.....#f:|N9=N%...|
|00001dd0| 05 e1 0d 15 7c 17 dd f2 | 61 73 63 69 69 28 69 6e |....|...|ascii(in|
|00001de0| 63 25 2c 64 69 72 64 24 | 29 0d 15 86 0e ea 20 4a |c%,dird$|)..... J|
|00001df0| 25 2c 4b 25 2c 4e 25 0d | 15 90 4f f5 3a f1 22 44 |%,K%,N%.|..O.:."D|
|00001e00| 69 73 63 61 72 64 20 7a | 65 72 6f 20 76 61 6c 75 |iscard z|ero valu|
|00001e10| 65 73 20 59 2f 4e 3f 22 | 3a 53 57 24 3d be 3a fd |es Y/N?"|:SW$=.:.|
|00001e20| 20 53 57 24 3d 22 59 22 | 20 84 20 53 57 24 3d 22 | SW$="Y"| . SW$="|
|00001e30| 79 22 20 84 20 53 57 24 | 3d 22 6e 22 20 84 20 53 |y" . SW$|="n" . S|
|00001e40| 57 24 3d 22 4e 22 0d 15 | 9a 64 f1 22 45 6e 74 65 |W$="N"..|.d."Ente|
|00001e50| 72 20 74 68 65 20 41 53 | 43 49 49 20 63 6f 64 65 |r the AS|CII code|
|00001e60| 2f 73 20 75 73 65 64 20 | 61 73 20 20 64 61 74 61 |/s used |as  data|
|00001e70| 20 73 65 70 61 72 61 74 | 6f 72 73 20 28 74 77 69 | separat|ors (twi|
|00001e80| 63 65 20 69 66 20 6f 6e | 6c 79 20 6f 6e 65 20 73 |ce if on|ly one s|
|00001e90| 65 70 61 72 61 74 6f 72 | 29 22 3a 73 65 70 31 25 |eparator|)":sep1%|
|00001ea0| 3d a5 3a 73 65 70 32 25 | 3d a5 0d 15 a4 30 e8 22 |=.:sep2%|=....0."|
|00001eb0| 45 6e 74 65 72 20 64 69 | 73 63 20 66 69 6c 65 20 |Enter di|sc file |
|00001ec0| 6e 61 6d 65 20 66 6f 72 | 20 73 6f 75 72 63 65 20 |name for| source |
|00001ed0| 66 69 6c 65 22 2c 72 65 | 66 24 0d 15 ae 0d 41 3d |file",re|f$....A=|
|00001ee0| ad 28 72 65 66 24 29 0d | 15 b8 08 4e 25 3d 30 0d |.(ref$).|...N%=0.|
|00001ef0| 15 c2 14 f5 20 4e 25 3d | 4e 25 2b 31 3a 6e 6f 24 |.... N%=|N%+1:no$|
|00001f00| 3d 22 22 0d 15 cc 1f f5 | 20 6c 65 74 74 65 72 25 |="".....| letter%|
|00001f10| 3d 9a 23 41 3a e7 20 c5 | 23 41 20 e5 20 20 8d 54 |=.#A:. .|#A .  .T|
|00001f20| 48 56 0d 15 d6 30 e7 20 | 6c 65 74 74 65 72 25 3e |HV...0. |letter%>|
|00001f30| 34 34 20 80 20 6c 65 74 | 74 65 72 25 3c 35 38 20 |44 . let|ter%<58 |
|00001f40| 6e 6f 24 3d 6e 6f 24 2b | bd 28 6c 65 74 74 65 72 |no$=no$+|.(letter|
|00001f50| 25 29 0d 15 e0 23 fd 20 | 6c 65 74 74 65 72 25 3d |%)...#. |letter%=|
|00001f60| 73 65 70 31 25 20 84 20 | 6c 65 74 74 65 72 25 3d |sep1% . |letter%=|
|00001f70| 73 65 70 32 25 0d 15 f4 | 76 e7 20 28 53 57 24 3c |sep2%...|v. (SW$<|
|00001f80| 3e 22 59 22 20 80 20 53 | 57 24 3c 3e 22 79 22 29 |>"Y" . S|W$<>"y")|
|00001f90| 20 84 20 28 28 53 57 24 | 3d 22 59 22 20 84 20 53 | . ((SW$|="Y" . S|
|00001fa0| 57 24 3d 22 79 22 29 20 | 80 20 bb 28 6e 6f 24 29 |W$="y") |. .(no$)|
|00001fb0| 3c 3e 30 29 20 8c 20 4a | 25 3d 4e 25 83 32 34 30 |<>0) . J|%=N%.240|
|00001fc0| 3a 4b 25 3d 4e 25 81 32 | 34 30 3a 58 31 28 4a 25 |:K%=N%.2|40:X1(J%|
|00001fd0| 2c 4b 25 29 3d bb 28 6e | 6f 24 29 3a f1 58 31 28 |,K%)=.(n|o$):.X1(|
|00001fe0| 4a 25 2c 4b 25 29 3b 22 | 20 22 3b 0d 15 fe 2e e7 |J%,K%);"| ";.....|
|00001ff0| 20 28 53 57 24 3d 22 59 | 22 20 84 20 53 57 24 3d | (SW$="Y|" . SW$=|
|00002000| 22 79 22 29 20 80 20 bb | 28 6e 6f 24 29 3d 30 20 |"y") . .|(no$)=0 |
|00002010| 8c 20 4e 25 3d 4e 25 2d | 31 0d 16 08 09 fd 20 c5 |. N%=N%-|1..... .|
|00002020| 23 41 0d 16 12 09 4e 39 | 3d 4e 25 0d 16 1c 07 d9 |#A....N9|=N%.....|
|00002030| 23 41 0d 16 26 05 e1 0d | 27 10 0a dd f2 6c 6f 61 |#A..&...|'....loa|
|00002040| 64 0d 27 15 36 f1 3a e8 | 22 45 6e 74 65 72 20 4e |d.'.6.:.|"Enter N|
|00002050| 6f 2e 6f 66 20 72 65 73 | 75 6c 74 73 22 2c 4e 39 |o.of res|ults",N9|
|00002060| 3a f1 22 45 6e 74 65 72 | 20 22 3b 4e 39 3b 22 20 |:."Enter| ";N9;" |
|00002070| 76 61 6c 75 65 73 22 0d | 27 24 70 e3 20 4b 25 3d |values".|'$p. K%=|
|00002080| 30 20 b8 20 61 72 72 61 | 79 73 69 7a 65 25 3a 20 |0 . arra|ysize%: |
|00002090| e3 20 49 3d 31 20 b8 20 | 32 34 30 3a e7 20 4b 25 |. I=1 . |240:. K%|
|000020a0| 2a 32 34 30 2b 49 3d 4e | 39 2b 31 20 4b 25 3d 61 |*240+I=N|9+1 K%=a|
|000020b0| 72 72 61 79 73 69 7a 65 | 25 3a 49 3d 32 34 30 20 |rraysize|%:I=240 |
|000020c0| 8b 20 f1 22 45 4e 54 45 | 52 20 58 31 28 22 3b 4b |. ."ENTE|R X1(";K|
|000020d0| 25 2a 32 34 30 2b 49 3b | 22 29 22 3b 3a e8 20 58 |%*240+I;|")";:. X|
|000020e0| 31 28 49 2c 4b 25 29 0d | 27 42 07 ed 3a ed 0d 27 |1(I,K%).|'B..:..'|
|000020f0| 4c 29 e8 22 45 6e 74 65 | 72 20 61 20 64 65 73 63 |L)."Ente|r a desc|
|00002100| 72 69 70 74 69 6f 6e 20 | 6f 66 20 74 68 65 20 64 |ription |of the d|
|00002110| 61 74 61 22 2c 41 24 0d | 27 56 05 e1 0d 27 5b 05 |ata",A$.|'V...'[.|
|00002120| 3a 0d 27 60 1e dd f2 64 | 69 73 70 3a ea 20 4b 25 |:.'`...d|isp:. K%|
|00002130| 2c 4c 25 2c 4d 25 2c 50 | 25 2c 51 25 2c 4b 39 0d |,L%,M%,P|%,Q%,K9.|
|00002140| 27 62 3b 4b 25 3d 30 3a | 6c 6f 25 3d 30 3a e7 20 |'b;K%=0:|lo%=0:. |
|00002150| 4e 39 3d 30 20 f1 27 22 | 83 9d 88 81 3e 20 20 4e |N9=0 .'"|....>  N|
|00002160| 4f 20 20 44 41 54 41 20 | 20 3c 89 22 27 3a 64 65 |O  DATA | <."':de|
|00002170| 6c 3d a6 28 32 35 30 29 | 3a e1 0d 27 65 43 e3 20 |l=.(250)|:..'eC. |
|00002180| 4b 25 3d 30 20 b8 20 4e | 39 20 81 20 32 34 30 3a |K%=0 . N|9 . 240:|
|00002190| e7 20 4e 39 2d 4b 25 2a | 32 34 30 3e 32 33 39 20 |. N9-K%*|240>239 |
|000021a0| 8c 20 4f 25 3d 33 20 8b | 20 4f 25 3d 28 4e 39 2d |. O%=3 .| O%=(N9-|
|000021b0| 4b 25 2a 32 34 30 2d 31 | 29 81 20 36 30 0d 27 6a |K%*240-1|). 60.'j|
|000021c0| 17 e3 20 4c 25 3d 30 20 | b8 20 4f 25 3a 4b 39 3d |.. L%=0 |. O%:K9=|
|000021d0| 4c 25 3a db 0d 27 74 59 | e3 20 4d 25 3d 30 20 b8 |L%:..'tY|. M%=0 .|
|000021e0| 20 32 3a 51 25 3d 4b 25 | 2a 32 34 30 2b 4c 25 2a | 2:Q%=K%|*240+L%*|
|000021f0| 36 30 3a 20 e7 20 20 51 | 25 3e 39 39 39 20 f1 8a |60: .  Q|%>999 ..|
|00002200| 35 2c 32 29 3b 22 92 9d | 88 81 49 4e 44 45 58 20 |5,2);"..|..INDEX |
|00002210| 22 3b c0 c3 28 51 25 29 | 2c 31 29 3b 22 20 54 48 |";..(Q%)|,1);" TH|
|00002220| 4f 55 53 41 4e 44 2c 2e | 2e 92 95 22 3b 0d 27 7e |OUSAND,.|...";.'~|
|00002230| 0f e3 20 50 25 3d 31 20 | b8 20 32 30 0d 27 88 63 |.. P%=1 |. 20.'.c|
|00002240| f1 8a 4d 25 2a 31 33 2c | 50 25 2b 32 29 3b c2 c3 |..M%*13,|P%+2);..|
|00002250| 28 4b 25 2a 32 34 30 2b | 4c 25 2a 36 30 2b 4d 25 |(K%*240+|L%*60+M%|
|00002260| 2a 32 30 2b 50 25 29 2c | 33 29 3b 8a 4d 25 2a 31 |*20+P%),|3);.M%*1|
|00002270| 33 2b 34 2c 50 25 2b 32 | 29 3b a4 75 73 69 6e 67 |3+4,P%+2|);.using|
|00002280| 28 73 68 61 70 65 24 2c | 58 31 28 4c 25 2a 36 30 |(shape$,|X1(L%*60|
|00002290| 2b 4d 25 2a 32 30 2b 50 | 25 2c 4b 25 29 29 3b 0d |+M%*20+P|%,K%));.|
|000022a0| 27 9c 0b ed 50 25 3a ed | 4d 25 0d 27 a1 11 e7 20 |'...P%:.|M%.'... |
|000022b0| 46 34 3d 31 20 f2 61 6d | 65 6e 64 0d 27 a2 12 e7 |F4=1 .am|end.'...|
|000022c0| 20 46 34 3d 32 20 f2 64 | 65 6c 65 74 65 0d 27 a3 | F4=2 .d|elete.'.|
|000022d0| 12 e7 20 46 34 3d 33 20 | f2 69 6e 73 65 72 74 0d |.. F4=3 |.insert.|
|000022e0| 27 a6 15 ed 4c 25 3a ed | 20 4b 25 3a 40 25 3d 26 |'...L%:.| K%:@%=&|
|000022f0| 31 30 3a e1 0d 27 ab 05 | 3a 0d 27 b0 17 dd f2 61 |10:..'..|:.'....a|
|00002300| 6d 65 6e 64 3a ea 20 6c | 6f 25 2c 49 25 2c 52 25 |mend:. l|o%,I%,R%|
|00002310| 0d 27 ba 59 f1 8a 30 2c | 31 29 3b 22 83 9d 81 41 |.'.Y..0,|1);"...A|
|00002320| 4d 45 4e 44 20 52 4f 55 | 54 49 4e 45 20 20 9c 87 |MEND ROU|TINE  ..|
|00002330| 41 6d 65 6e 64 20 64 61 | 74 61 20 59 2f 4e 3f 20 |Amend da|ta Y/N? |
|00002340| 20 20 20 20 20 20 22 3a | 53 57 24 3d be 3a e7 20 |      ":|SW$=.:. |
|00002350| 53 57 24 3c 3e 22 59 22 | 20 80 20 53 57 24 3c 3e |SW$<>"Y"| . SW$<>|
|00002360| 22 79 22 20 8c 20 db 3a | e1 0d 27 c4 61 f1 8a 30 |"y" . .:|..'.a..0|
|00002370| 2c 31 29 3b 22 45 6e 74 | 65 72 20 61 72 72 61 79 |,1);"Ent|er array|
|00002380| 20 73 75 62 73 63 72 69 | 70 74 73 20 6f 66 20 65 | subscri|pts of e|
|00002390| 61 63 68 20 76 61 6c 75 | 65 20 74 6f 20 62 65 20 |ach valu|e to be |
|000023a0| 61 6d 65 6e 64 65 64 20 | 74 68 65 6e 20 7a 65 72 |amended |then zer|
|000023b0| 6f 20 74 6f 20 74 65 72 | 6d 69 6e 61 74 65 22 3a |o to ter|minate":|
|000023c0| 64 65 6c 3d a6 28 31 30 | 30 29 0d 27 ce 09 6c 6f |del=.(10|0).'..lo|
|000023d0| 25 3d 30 0d 27 d8 b5 f5 | 3a 6c 6f 25 3d 6c 6f 25 |%=0.'...|:lo%=lo%|
|000023e0| 2b 31 3a f1 8a 30 2c 31 | 29 3b c4 37 35 2c 22 20 |+1:..0,1|);.75," |
|000023f0| 22 29 3b 8a 35 2c 31 29 | 3b 3a e8 22 4e 65 78 74 |");.5,1)|;:."Next|
|00002400| 20 73 75 62 73 63 72 69 | 70 74 22 2c 49 25 28 6c | subscri|pt",I%(l|
|00002410| 6f 25 29 3a f1 49 25 28 | 6c 6f 25 29 2c 4b 25 2a |o%):.I%(|lo%),K%*|
|00002420| 32 34 30 2b 4c 25 2a 36 | 30 2b 36 30 20 3a f1 8a |240+L%*6|0+60 :..|
|00002430| 30 2c 30 29 c4 31 35 2c | 22 20 22 29 3a fd 20 49 |0,0).15,|" "):. I|
|00002440| 25 28 6c 6f 25 29 3e 4b | 25 2a 32 34 30 2b 4c 25 |%(lo%)>K|%*240+L%|
|00002450| 2a 36 30 2b 36 30 20 84 | 20 49 25 28 6c 6f 25 29 |*60+60 .| I%(lo%)|
|00002460| 3c 4b 25 2a 32 34 30 2b | 4c 25 2a 36 30 2b 31 20 |<K%*240+|L%*60+1 |
|00002470| 84 20 49 25 28 6c 6f 25 | 29 3e 4e 39 20 84 20 49 |. I%(lo%|)>N9 . I|
|00002480| 25 28 6c 6f 25 29 3d 30 | 0d 27 e2 3a e7 20 49 25 |%(lo%)=0|.'.:. I%|
|00002490| 28 6c 6f 25 29 3c 3e 30 | 20 8c 20 f1 8a 30 2c 30 |(lo%)<>0| . ..0,0|
|000024a0| 29 22 85 88 4f 75 74 20 | 6f 66 20 72 61 6e 67 65 |)"..Out |of range|
|000024b0| 22 3a 6c 6f 25 3d 6c 6f | 25 2d 31 3a e5 20 8d 64 |":lo%=lo|%-1:. .d|
|000024c0| 58 67 0d 27 ec 4b 54 3d | 6c 6f 25 3a e3 20 6c 6f |Xg.'.KT=|lo%:. lo|
|000024d0| 25 3d 31 20 b8 20 54 2d | 31 3a 52 25 3d 49 25 28 |%=1 . T-|1:R%=I%(|
|000024e0| 6c 6f 25 29 81 32 34 30 | 3a 53 25 3d 49 25 28 6c |lo%).240|:S%=I%(l|
|000024f0| 6f 25 29 83 32 34 30 3a | e7 20 53 25 3d 30 20 53 |o%).240:|. S%=0 S|
|00002500| 25 3d 32 34 30 3a 52 25 | 3d 52 25 2d 31 0d 27 f6 |%=240:R%|=R%-1.'.|
|00002510| 5c f1 8a 30 2c 31 29 3b | c4 37 35 2c 22 20 22 29 |\..0,1);|.75," ")|
|00002520| 8a 30 2c 31 29 3b 22 4f | 6c 64 20 76 61 6c 75 65 |.0,1);"O|ld value|
|00002530| 20 6f 66 20 58 31 28 22 | 3b 49 25 28 6c 6f 25 29 | of X1("|;I%(lo%)|
|00002540| 3b 22 29 3d 22 3b 58 31 | 28 53 25 2c 52 25 29 3b |;")=";X1|(S%,R%);|
|00002550| 22 20 4e 65 77 20 76 61 | 6c 75 65 3f 22 3b 3a e8 |" New va|lue?";:.|
|00002560| 58 31 28 53 25 2c 52 25 | 29 0d 27 f8 09 f2 70 6f |X1(S%,R%|).'...po|
|00002570| 73 6e 0d 27 fb 44 f1 8a | 4a 39 2a 31 33 2b 34 2c |sn.'.D..|J9*13+4,|
|00002580| 49 39 2b 32 29 3b c4 39 | 2c 22 20 22 29 3b 8a 4a |I9+2);.9|," ");.J|
|00002590| 39 2a 31 33 2b 34 2c 49 | 39 2b 32 29 3b a4 75 73 |9*13+4,I|9+2);.us|
|000025a0| 69 6e 67 28 73 68 61 70 | 65 24 2c 58 31 28 53 25 |ing(shap|e$,X1(S%|
|000025b0| 2c 52 25 29 29 3b 0d 28 | 00 0c ed 3a e5 20 8d 74 |,R%));.(|...:. .t|
|000025c0| 7a 67 0d 28 0a 07 db 3a | e1 0d 28 14 0f dd f2 69 |zg.(...:|..(....i|
|000025d0| 6e 70 75 74 28 44 24 29 | 0d 28 1e 18 ea 20 50 25 |nput(D$)|.(... P%|
|000025e0| 2c 51 25 2c 64 65 6c 2c | 4e 25 2c 4a 25 2c 4b 25 |,Q%,del,|N%,J%,K%|
|000025f0| 0d 28 64 32 f1 27 22 45 | 6e 74 65 72 20 74 68 65 |.(d2.'"E|nter the|
|00002600| 20 66 6f 6c 6c 6f 77 69 | 6e 67 3a 2d 22 3a ff 20 | followi|ng:-":. |
|00002610| 28 22 6d 6f 75 6e 74 20 | 22 2b c3 28 69 6e 63 25 |("mount |"+.(inc%|
|00002620| 29 29 0d 28 6e 42 f1 22 | 20 20 46 69 6c 65 20 72 |)).(nB."|  File r|
|00002630| 65 66 65 72 65 6e 63 65 | 20 63 6f 64 65 22 3a e8 |eference| code":.|
|00002640| 72 65 66 24 3a e7 20 97 | 28 64 69 72 64 24 29 3c |ref$:. .|(dird$)<|
|00002650| 3e 2d 31 20 ff 20 28 22 | 44 49 52 20 22 2b 64 69 |>-1 . ("|DIR "+di|
|00002660| 72 64 24 29 0d 28 78 72 | e7 20 44 24 3d 22 46 22 |rd$).(xr|. D$="F"|
|00002670| 20 84 20 44 24 3d 22 66 | 22 20 e8 22 20 20 4e 6f | . D$="f|" ."  No|
|00002680| 2e 6f 66 20 44 41 54 41 | 20 76 61 6c 75 65 73 20 |.of DATA| values |
|00002690| 66 72 6f 6d 20 74 68 69 | 73 20 66 69 6c 65 22 27 |from thi|s file"'|
|000026a0| 22 20 20 50 6f 73 69 74 | 69 6f 6e 20 4e 6f 2e 6f |"  Posit|ion No.o|
|000026b0| 66 20 66 69 72 73 74 20 | 44 41 54 41 20 76 61 6c |f first |DATA val|
|000026c0| 75 65 22 2c 50 25 2c 51 | 25 20 8b 20 50 25 3d 4e |ue",P%,Q|% . P%=N|
|000026d0| 39 3a 51 25 3d 31 0d 28 | 82 0a 51 51 25 3d 51 25 |9:Q%=1.(|..QQ%=Q%|
|000026e0| 0d 28 8c 09 f1 72 65 66 | 24 0d 28 96 0d 66 3d ad |.(...ref|$.(..f=.|
|000026f0| 28 72 65 66 24 29 0d 28 | b4 2e e7 20 66 3d 30 20 |(ref$).(|... f=0 |
|00002700| f1 27 22 85 88 46 69 6c | 65 20 22 3b 72 65 66 24 |.'"..Fil|e ";ref$|
|00002710| 3b 22 20 6e 6f 74 20 66 | 6f 75 6e 64 22 3a e5 20 |;" not f|ound":. |
|00002720| 8d 44 64 68 0d 28 be 14 | e8 23 66 2c 41 24 2c 4e |.Ddh.(..|.#f,A$,N|
|00002730| 25 3a 4e 4e 25 3d 4e 25 | 0d 28 d2 33 e7 20 4e 25 |%:NN%=N%|.(.3. N%|
|00002740| 2d 51 25 2b 31 3c 50 25 | 20 f1 27 22 82 88 49 6e |-Q%+1<P%| .'"..In|
|00002750| 73 75 66 66 69 63 69 65 | 6e 74 20 64 61 74 61 22 |sufficie|nt data"|
|00002760| 3a d9 23 66 3a e5 20 8d | 44 64 68 0d 28 dc 11 e7 |:.#f:. .|Ddh.(...|
|00002770| 20 51 25 3d 31 20 8c 20 | 8d 64 70 68 0d 28 e6 1c | Q%=1 . |.dph.(..|
|00002780| e3 20 52 25 3d 31 20 b8 | 20 51 25 2d 31 3a e8 23 |. R%=1 .| Q%-1:.#|
|00002790| 66 2c 58 64 75 6d 3a ed | 0d 28 f0 33 e3 20 52 25 |f,Xdum:.|.(.3. R%|
|000027a0| 3d 51 25 20 b8 20 51 25 | 2b 50 25 2d 31 3a 5a 25 |=Q% . Q%|+P%-1:Z%|
|000027b0| 3d 5a 25 2b 31 3a 4a 25 | 3d 5a 25 20 83 32 34 30 |=Z%+1:J%|=Z% .240|
|000027c0| 3a 4b 25 3d 5a 25 20 81 | 32 34 30 0d 28 fa 11 e8 |:K%=Z% .|240.(...|
|000027d0| 23 66 2c 58 31 28 4a 25 | 2c 4b 25 29 0d 29 04 05 |#f,X1(J%|,K%).)..|
|000027e0| ed 0d 29 0e 09 d9 23 66 | 3a e1 0d 29 13 05 3a 0d |..)...#f|:..)..:.|
|000027f0| 29 18 37 dd f2 73 61 76 | 65 3a e7 20 4e 39 3d 30 |).7..sav|e:. N9=0|
|00002800| 20 f1 27 22 83 9d 88 81 | 3e 20 20 4e 4f 20 20 44 | .'"....|>  NO  D|
|00002810| 41 54 41 20 20 3c 89 22 | 27 3a 64 65 6c 3d a6 28 |ATA  <."|':del=.(|
|00002820| 32 35 30 29 3a e1 0d 29 | 22 34 e8 27 22 45 6e 74 |250):..)|"4.'"Ent|
|00002830| 65 72 20 66 69 6c 65 20 | 72 65 66 65 72 65 6e 63 |er file |referenc|
|00002840| 65 20 63 6f 64 65 28 6c | 69 6d 69 74 20 31 30 63 |e code(l|imit 10c|
|00002850| 68 72 73 29 22 2c 72 65 | 66 24 0d 29 27 4a f5 3a |hrs)",re|f$.)'J.:|
|00002860| f1 22 83 9d 81 50 6c 61 | 69 6e 20 6e 75 6d 65 72 |."...Pla|in numer|
|00002870| 69 63 20 66 69 6c 65 20 | 59 3f 20 65 6c 73 65 20 |ic file |Y? else |
|00002880| 72 65 74 75 72 6e 22 3b | 3a 53 57 24 3d be 3a fd |return";|:SW$=.:.|
|00002890| 20 a9 28 53 57 24 29 3d | 31 20 84 20 a9 28 53 57 | .(SW$)=|1 . .(SW|
|000028a0| 24 29 3d 30 0d 29 2c 50 | f1 27 22 82 88 45 4e 53 |$)=0.),P|.'"..ENS|
|000028b0| 55 52 45 20 44 41 54 41 | 20 44 49 53 43 20 49 53 |URE DATA| DISC IS|
|000028c0| 20 50 52 45 53 45 4e 54 | 22 27 22 20 86 53 65 6c | PRESENT|"'" .Sel|
|000028d0| 65 63 74 20 46 55 4c 4c | 20 64 69 72 65 63 74 6f |ect FULL| directo|
|000028e0| 72 79 20 70 61 74 68 6e | 61 6d 65 20 22 3a e8 20 |ry pathn|ame ":. |
|000028f0| 64 69 72 24 0d 29 36 28 | e7 20 97 28 64 69 72 24 |dir$.)6(|. .(dir$|
|00002900| 29 3e 33 31 20 ff 20 22 | 44 49 52 20 22 2b 64 69 |)>31 . "|DIR "+di|
|00002910| 72 24 20 20 8b 20 e5 20 | 8d 54 6c 69 0d 29 4a 0d |r$  . . |.Tli.)J.|
|00002920| 66 3d ae 28 72 65 66 24 | 29 0d 29 54 19 e7 20 53 |f=.(ref$|).)T.. S|
|00002930| 57 24 20 3c 3e 22 59 22 | 20 f1 23 66 2c 41 24 2c |W$ <>"Y"| .#f,A$,|
|00002940| 4e 39 0d 29 5e 57 e3 20 | 4b 25 3d 30 20 b8 20 61 |N9.)^W. |K%=0 . a|
|00002950| 72 72 61 79 73 69 7a 65 | 25 3a 20 e3 20 49 3d 31 |rraysize|%: . I=1|
|00002960| 20 b8 20 32 34 30 3a e7 | 20 4b 25 2a 32 34 30 2b | . 240:.| K%*240+|
|00002970| 49 3d 4e 39 2b 31 20 4b | 25 3d 61 72 72 61 79 73 |I=N9+1 K|%=arrays|
|00002980| 69 7a 65 25 3a 49 3d 32 | 34 30 20 8b 20 f1 23 66 |ize%:I=2|40 . .#f|
|00002990| 2c 58 31 28 49 2c 4b 25 | 29 0d 29 68 0c ed 3a ed |,X1(I,K%|).)h..:.|
|000029a0| 3a d9 20 23 66 0d 29 72 | 05 e1 0d 29 77 05 3a 0d |:. #f.)r|...)w.:.|
|000029b0| 29 cc 0a dd f2 70 6f 73 | 6e 0d 29 d6 4a 4a 39 3d |)....pos|n.).JJ9=|
|000029c0| 28 49 25 28 6c 6f 25 29 | 83 32 34 30 2d 4b 39 2a |(I%(lo%)|.240-K9*|
|000029d0| 36 30 29 81 32 30 3a 49 | 39 3d 28 49 25 28 6c 6f |60).20:I|9=(I%(lo|
|000029e0| 25 29 2d 4b 39 2a 36 30 | 29 83 32 30 3a e7 20 49 |%)-K9*60|).20:. I|
|000029f0| 39 3d 30 20 8c 20 4a 39 | 3d 4a 39 2d 31 3a 49 39 |9=0 . J9|=J9-1:I9|
|00002a00| 3d 32 30 0d 29 e0 18 e7 | 20 49 25 28 6c 6f 25 29 |=20.)...| I%(lo%)|
|00002a10| 83 32 34 30 3d 30 20 4a | 39 3d 32 0d 29 e1 05 e1 |.240=0 J|9=2.)...|
|00002a20| 0d 29 e5 05 3a 0d 2a c6 | 9d dd f2 66 69 6c 28 43 |.)..:.*.|...fil(C|
|00002a30| 29 3a f1 27 22 83 9d 81 | 4c 41 53 54 20 46 49 4c |):.'"...|LAST FIL|
|00002a40| 45 20 44 45 53 43 52 49 | 50 54 49 4f 4e 20 52 45 |E DESCRI|PTION RE|
|00002a50| 41 44 20 49 53 3a 20 22 | 27 22 83 9d 81 22 3b 41 |AD IS: "|'"...";A|
|00002a60| 24 3b 27 22 87 9d 84 4c | 41 53 54 20 44 49 53 43 |$;'"...L|AST DISC|
|00002a70| 20 46 49 4c 45 3a 20 22 | 3b 72 65 66 24 3b 22 20 | FILE: "|;ref$;" |
|00002a80| 20 4c 45 4e 47 54 48 20 | 49 53 3a 20 22 3b 4e 4e | LENGTH |IS: ";NN|
|00002a90| 25 3b 27 22 20 9d 84 46 | 52 4f 4d 20 4e 4f 2e 3a |%;'" ..F|ROM NO.:|
|00002aa0| 22 3b 51 51 25 3b 22 20 | 20 54 4f 54 41 4c 20 4e |";QQ%;" | TOTAL N|
|00002ab0| 4f 2e 20 49 4e 50 55 54 | 3a 20 22 3b 4e 39 3b 27 |O. INPUT|: ";N9;'|
|00002ac0| 3a e1 0d 2e e0 17 dd a4 | 75 73 69 6e 67 28 66 6f |:.......|using(fo|
|00002ad0| 72 6d 61 74 24 2c 6e 6f | 29 0d 2e ea 18 ea 20 6e |rmat$,no|)..... n|
|00002ae0| 75 6d 62 24 2c 73 70 24 | 2c 44 25 2c 4c 25 2c 40 |umb$,sp$|,D%,L%,@|
|00002af0| 25 0d 2e f4 0f 6e 75 6d | 62 24 3d c3 28 6e 6f 29 |%....num|b$=.(no)|
|00002b00| 0d 2e fe 38 e7 20 6e 6f | 3e 30 20 80 20 97 28 66 |...8. no|>0 . .(f|
|00002b10| 6f 72 6d 61 74 24 29 3d | 34 35 20 8c 20 73 70 24 |ormat$)=|45 . sp$|
|00002b20| 3d bd 33 32 3a 66 6f 72 | 6d 61 74 24 3d c1 66 6f |=.32:for|mat$=.fo|
|00002b30| 72 6d 61 74 24 2c 32 29 | 0d 2f 08 11 4c 25 3d a9 |rmat$,2)|./..L%=.|
|00002b40| 28 66 6f 72 6d 61 74 24 | 29 0d 2f 12 18 44 25 3d |(format$|)./..D%=|
|00002b50| a7 66 6f 72 6d 61 74 24 | 2b bd 33 32 2c 22 2e 22 |.format$|+.32,"."|
|00002b60| 29 0d 2f 1c 2d e7 20 44 | 25 20 8c 20 40 25 3d 28 |)./.-. D|% . @%=(|
|00002b70| 36 36 30 34 38 2b 4c 25 | 2d 44 25 29 2a 32 35 36 |66048+L%|-D%)*256|
|00002b80| 20 8b 20 6e 6f 3d a8 28 | 6e 6f 2b 2e 35 29 0d 2f | . no=.(|no+.5)./|
|00002b90| 26 20 e7 20 a7 6e 75 6d | 62 24 2c 22 45 22 29 20 |& . .num|b$,"E") |
|00002ba0| 8c 20 3d 73 70 24 2b 66 | 6f 72 6d 61 74 24 0d 2f |. =sp$+f|ormat$./|
|00002bb0| 30 29 e7 20 a7 6e 75 6d | 62 24 2b 22 2e 22 2c 22 |0). .num|b$+".","|
|00002bc0| 2e 22 29 3e 4c 25 2b 31 | 20 8c 20 3d 73 70 24 2b |.")>L%+1| . =sp$+|
|00002bd0| 66 6f 72 6d 61 74 24 0d | 2f 3a 11 66 6f 72 6d 61 |format$.|/:.forma|
|00002be0| 74 24 3d c3 28 6e 6f 29 | 0d 2f 44 27 e7 20 a9 28 |t$=.(no)|./D'. .(|
|00002bf0| 66 6f 72 6d 61 74 24 29 | 3e 4c 25 20 8c 20 3d 73 |format$)|>L% . =s|
|00002c00| 70 24 2b c0 66 6f 72 6d | 61 74 24 2c 4c 25 29 0d |p$+.form|at$,L%).|
|00002c10| 2f 4e 1e 3d 73 70 24 2b | c2 c4 4c 25 2c 22 20 22 |/N.=sp$+|..L%," "|
|00002c20| 29 2b 66 6f 72 6d 61 74 | 24 2c 4c 25 29 0d 2f a8 |)+format|$,L%)./.|
|00002c30| 13 dd f2 73 65 72 69 61 | 6c 3a 2a 46 58 35 2c 32 |...seria|l:*FX5,2|
|00002c40| 0d 2f b2 70 f1 27 22 83 | 45 6e 74 65 72 20 42 61 |./.p.'".|Enter Ba|
|00002c50| 75 64 20 52 61 74 65 20 | 6f 66 20 70 72 69 6e 74 |ud Rate |of print|
|00002c60| 65 72 20 61 73 20 66 6f | 6c 6c 6f 77 73 22 27 27 |er as fo|llows"''|
|00002c70| 22 83 37 35 3d 31 2c 20 | 31 35 30 3d 32 2c 20 33 |".75=1, |150=2, 3|
|00002c80| 30 30 3d 33 2c 20 31 32 | 30 30 3d 34 2c 20 32 34 |00=3, 12|00=4, 24|
|00002c90| 30 30 3d 35 22 27 22 83 | 34 38 30 30 3d 36 2c 20 |00=5"'".|4800=6, |
|00002ca0| 39 36 30 30 3d 37 2c 20 | 31 39 32 30 30 3d 38 22 |9600=7, |19200=8"|
|00002cb0| 0d 2f bc 1b 62 64 25 3d | a5 2d 34 38 3a ff 20 22 |./..bd%=|.-48:. "|
|00002cc0| 2a 46 58 38 2c 22 2b c3 | 62 64 25 0d 2f c6 0a 2a |*FX8,"+.|bd%./..*|
|00002cd0| 46 58 36 2c 30 0d 2f d0 | 19 f1 27 22 81 88 4f 4b |FX6,0./.|..'"..OK|
|00002ce0| 22 3a 64 65 6c 3d a6 28 | 32 35 30 29 3a e1 0d 2f |":del=.(|250):../|
|00002cf0| da 92 dd f2 77 68 65 72 | 65 3a f5 3a f1 27 22 83 |....wher|e:.:.'".|
|00002d00| 9d 84 88 3e 89 20 45 6e | 74 65 72 20 64 72 69 76 |...>. En|ter driv|
|00002d10| 65 20 4e 6f 2e 20 6f 66 | 20 64 61 74 61 20 64 69 |e No. of| data di|
|00002d20| 73 63 20 88 3c 89 22 27 | 22 83 9d 84 20 20 6f 72 |sc .<."'|"...  or|
|00002d30| 20 52 45 54 55 52 4e 20 | 66 6f 72 20 64 72 69 76 | RETURN |for driv|
|00002d40| 65 20 30 22 3a 69 6e 63 | 25 3d a5 2d 34 38 3a fd |e 0":inc|%=.-48:.|
|00002d50| 20 28 69 6e 63 25 3e 2d | 31 20 80 20 69 6e 63 25 | (inc%>-|1 . inc%|
|00002d60| 3c 37 29 20 84 20 69 6e | 63 25 3d 2d 33 35 3a e7 |<7) . in|c%=-35:.|
|00002d70| 20 69 6e 63 25 3d 2d 33 | 35 20 69 6e 63 25 3d 30 | inc%=-3|5 inc%=0|
|00002d80| 0d 2f e4 58 f1 27 22 83 | 9d 84 45 6e 74 65 72 20 |./.X.'".|..Enter |
|00002d90| 64 61 74 61 20 64 69 72 | 65 63 74 6f 72 79 20 70 |data dir|ectory p|
|00002da0| 61 74 68 6e 61 6d 65 89 | 22 27 22 83 9d 84 6f 72 |athname.|"'"...or|
|00002db0| 20 52 45 54 55 52 4e 20 | 66 6f 72 20 63 75 72 72 | RETURN |for curr|
|00002dc0| 65 6e 74 20 64 69 72 65 | 63 74 6f 72 79 89 22 27 |ent dire|ctory."'|
|00002dd0| 3a e8 20 64 69 72 64 24 | 0d 2f ee 20 f4 20 49 46 |:. dird$|./. . IF|
|00002de0| 20 64 69 72 64 24 3d 22 | 22 20 54 48 45 4e 20 64 | dird$="|" THEN d|
|00002df0| 69 72 64 24 3d 22 5e 22 | 0d 2f f8 05 e1 0d 30 0c |ird$="^"|./....0.|
|00002e00| 0a dd f2 69 6e 69 74 0d | 30 16 27 eb 20 37 3a 4e |...init.|0.'. 7:N|
|00002e10| 4e 25 3d 30 3a 51 51 25 | 3d 30 3a 4b 25 3d 30 3a |N%=0:QQ%|=0:K%=0:|
|00002e20| ef 32 33 2c 31 2c 30 3b | 30 3b 30 3b 30 3b 0d 30 |.23,1,0;|0;0;0;.0|
|00002e30| 20 2b 61 72 72 61 79 73 | 69 7a 65 25 3d 31 30 3a | +arrays|ize%=10:|
|00002e40| 64 75 6d 6d 79 25 3d 30 | 3a 73 68 61 70 65 24 3d |dummy%=0|:shape$=|
|00002e50| 22 2a 2a 2a 2e 2a 2a 2a | 22 0d 30 2a 26 46 34 3d |"***.***|".0*&F4=|
|00002e60| 31 3a 72 65 66 24 3d 22 | 4e 6f 6e 65 22 3a 4e 39 |1:ref$="|None":N9|
|00002e70| 3d 30 3a 41 24 3d 22 4e | 6f 20 64 61 74 61 22 0d |=0:A$="N|o data".|
|00002e80| 30 34 31 de 20 58 31 28 | 32 34 30 2c 61 72 72 61 |041. X1(|240,arra|
|00002e90| 79 73 69 7a 65 25 29 2c | 58 28 32 34 30 2c 61 72 |ysize%),|X(240,ar|
|00002ea0| 72 61 79 73 69 7a 65 25 | 29 2c 49 25 28 36 31 29 |raysize%|),I%(61)|
|00002eb0| 0d 30 3e 54 f1 22 83 9d | 84 47 50 2e 44 61 74 61 |.0>T."..|.GP.Data|
|00002ec0| 20 45 64 69 74 6f 72 20 | 61 6e 64 20 73 69 6d 70 | Editor |and simp|
|00002ed0| 6c 65 20 73 74 61 74 69 | 73 74 69 63 73 22 27 22 |le stati|stics"'"|
|00002ee0| 83 9d 84 70 72 6f 67 72 | 61 6d 20 28 41 52 43 2f |...progr|am (ARC/|
|00002ef0| 41 44 46 53 29 20 52 2e | 43 2e 64 65 20 56 2e 31 |ADFS) R.|C.de V.1|
|00002f00| 39 38 39 22 0d 30 48 51 | f1 27 22 92 9d 84 44 61 |989".0HQ|.'"...Da|
|00002f10| 74 61 20 66 6f 72 6d 61 | 74 20 61 6c 6c 6f 77 73 |ta forma|t allows|
|00002f20| 20 37 20 66 69 67 75 72 | 65 20 64 69 73 70 6c 61 | 7 figur|e displa|
|00002f30| 79 20 22 27 22 92 9d 84 | 69 6e 63 6c 75 64 69 6e |y "'"...|includin|
|00002f40| 67 20 74 68 65 20 64 65 | 63 69 6d 61 6c 20 70 6f |g the de|cimal po|
|00002f50| 69 6e 74 21 22 0d 30 52 | 9b f5 3a f1 22 83 9d 84 |int!".0R|..:."...|
|00002f60| 45 6e 74 65 72 20 70 72 | 65 66 65 72 72 65 64 20 |Enter pr|eferred |
|00002f70| 64 61 74 61 20 66 6f 72 | 6d 61 74 20 69 6e 20 74 |data for|mat in t|
|00002f80| 68 65 22 27 22 83 9d 84 | 66 6f 72 6d 20 2a 2a 2a |he"'"...|form ***|
|00002f90| 2e 2a 2a 2a 20 6f 72 20 | 52 45 54 55 52 4e 20 66 |.*** or |RETURN f|
|00002fa0| 6f 72 20 64 65 66 61 75 | 6c 74 22 3b 3a e8 20 73 |or defau|lt";:. s|
|00002fb0| 68 61 70 65 24 3a fd 20 | a9 28 73 68 61 70 65 24 |hape$:. |.(shape$|
|00002fc0| 29 3d 37 20 84 20 a9 28 | 73 68 61 70 65 24 29 3d |)=7 . .(|shape$)=|
|00002fd0| 30 3a e7 20 a9 28 73 68 | 61 70 65 24 29 3d 30 20 |0:. .(sh|ape$)=0 |
|00002fe0| 73 68 61 70 65 24 3d 22 | 2a 2a 2a 2e 2a 2a 2a 22 |shape$="|***.***"|
|00002ff0| 0d 30 70 9a f1 27 22 83 | 9d 84 45 6e 74 65 72 20 |.0p..'".|..Enter |
|00003000| 31 20 74 6f 20 70 72 6f | 63 65 73 73 20 61 6c 6c |1 to pro|cess all|
|00003010| 20 64 61 74 61 20 69 6e | 63 2e 22 27 22 83 9d 84 | data in|c."'"...|
|00003020| 7a 65 72 6f 20 61 6e 64 | 20 6e 65 67 61 74 69 76 |zero and| negativ|
|00003030| 65 20 76 61 6c 75 65 73 | 20 6f 72 20 52 45 54 55 |e values| or RETU|
|00003040| 52 4e 22 27 22 83 9d 84 | 74 6f 20 74 72 65 61 74 |RN"'"...|to treat|
|00003050| 20 76 61 6c 75 65 73 20 | 3c 20 30 2e 30 30 31 20 | values |< 0.001 |
|00003060| 61 73 20 6d 69 73 73 69 | 6e 67 20 22 3a 64 75 6d |as missi|ng ":dum|
|00003070| 6d 79 25 3d a5 3a e7 20 | 64 75 6d 6d 79 25 3d 31 |my%=.:. |dummy%=1|
|00003080| 33 20 64 75 6d 6d 79 25 | 3d 30 0d 30 7a 32 f1 27 |3 dummy%|=0.0z2.'|
|00003090| 22 83 9d 84 3e 89 46 75 | 6c 6c 20 65 64 69 74 69 |"...>.Fu|ll editi|
|000030a0| 6e 67 20 69 6e 70 75 74 | 3d 46 20 65 6c 73 65 20 |ng input|=F else |
|000030b0| 52 45 54 55 52 4e 22 3a | 44 24 3d be 0d 30 d4 05 |RETURN":|D$=..0..|
|000030c0| e1 0d 31 38 09 dd f2 64 | 69 6d 0d 31 42 31 de 20 |..18...d|im.1B1. |
|000030d0| 41 33 28 61 72 72 61 79 | 73 69 7a 65 25 2a 32 35 |A3(array|size%*25|
|000030e0| 29 2c 51 28 32 35 30 29 | 3a 72 65 66 24 3d 22 4e |),Q(250)|:ref$="N|
|000030f0| 6f 74 20 6f 6e 20 66 69 | 6c 65 22 0d 31 92 05 e1 |ot on fi|le".1...|
|00003100| 0d 31 9c 9b dd f2 6f 73 | 3a f1 27 22 83 9d 84 3e |.1....os|:.'"...>|
|00003110| 20 20 4f 50 45 52 41 54 | 49 4e 47 20 53 59 53 54 |  OPERAT|ING SYST|
|00003120| 45 4d 20 43 41 4c 4c 20 | 28 65 67 20 2a 43 41 54 |EM CALL |(eg *CAT|
|00003130| 20 3c 22 27 3a e8 22 45 | 6e 74 65 72 20 63 61 6c | <"':."E|nter cal|
|00003140| 6c 20 28 6b 65 79 20 73 | 68 69 66 74 20 74 6f 20 |l (key s|hift to |
|00003150| 73 63 72 6f 6c 6c 29 22 | 2c 53 57 24 3a ef 31 34 |scroll)"|,SW$:.14|
|00003160| 3a ff 20 53 57 24 3a ef | 31 35 3a f1 22 83 9d 84 |:. SW$:.|15:."...|
|00003170| 3e 20 20 50 72 65 73 73 | 20 61 20 6b 65 79 20 74 |>  Press| a key t|
|00003180| 6f 20 65 6e 64 20 64 65 | 6c 61 79 20 20 3c 22 3a |o end de|lay  <":|
|00003190| 64 65 6c 3d a6 28 32 30 | 30 30 29 0d 32 c8 05 e1 |del=.(20|00).2...|
|000031a0| 0d 36 b0 09 f2 69 6e 69 | 74 0d 36 ba 0a f2 77 68 |.6...ini|t.6...wh|
|000031b0| 65 72 65 0d 36 c4 08 f2 | 64 69 6d 0d 36 ce 17 e7 |ere.6...|dim.6...|
|000031c0| 20 47 32 3d 34 20 8c 20 | f2 6f 73 3a e5 20 8d 74 | G2=4 . |.os:. .t|
|000031d0| 56 40 0d 36 d8 18 f5 3a | f2 69 6e 70 75 74 28 44 |V@.6...:|.input(D|
|000031e0| 24 29 3a fd 20 5a 25 3e | 4e 39 0d 36 e2 3e f2 66 |$):. Z%>|N9.6.>.f|
|000031f0| 69 6c 28 31 32 39 29 3a | f1 22 83 9d 84 3e 20 20 |il(129):|."...>  |
|00003200| 50 72 65 73 73 20 61 20 | 6b 65 79 20 74 6f 20 65 |Press a |key to e|
|00003210| 6e 64 20 64 65 6c 61 79 | 20 20 3c 22 3a 64 65 6c |nd delay|  <":del|
|00003220| 3d a6 28 32 30 30 30 29 | 0d 36 ec 4c f1 27 22 83 |=.(2000)|.6.L.'".|
|00003230| 9d 84 41 6d 65 6e 64 20 | 6f 72 20 63 68 65 63 6b |..Amend |or check|
|00003240| 20 64 61 74 61 20 59 3f | 20 65 6c 73 65 20 52 45 | data Y?| else RE|
|00003250| 54 55 52 4e 20 22 3a 59 | 25 3d a5 3a e7 20 59 25 |TURN ":Y|%=.:. Y%|
|00003260| 3d 38 39 20 84 20 59 25 | 3d 31 32 31 20 8c 20 f2 |=89 . Y%|=121 . .|
|00003270| 64 69 73 70 0d 36 f6 28 | e7 20 58 3c 2e 30 30 31 |disp.6.(|. X<.001|
|00003280| 20 80 20 64 75 6d 6d 79 | 25 3d 30 20 8c 20 4b 31 | . dummy|%=0 . K1|
|00003290| 3d 4b 31 2b 31 3a e5 20 | 8d 44 42 44 0d 37 00 22 |=K1+1:. |.DBD.7."|
|000032a0| 20 49 35 3d 49 35 2b 31 | 3a 50 25 3d 49 35 20 83 | I5=I5+1|:P%=I5 .|
|000032b0| 32 34 30 3a 4b 25 3d 49 | 35 20 81 32 34 30 0d 37 |240:K%=I|5 .240.7|
|000032c0| 0a 10 20 58 3d 58 31 28 | 50 25 2c 4b 25 29 0d 37 |.. X=X1(|P%,K%).7|
|000032d0| 14 34 43 25 3d 28 52 25 | 2d 31 29 2a 49 25 2a 4d |.4C%=(R%|-1)*I%*M|
|000032e0| 2b 28 50 25 2d 31 29 2a | 4d 2b 51 25 3a 4a 25 3d |+(P%-1)*|M+Q%:J%=|
|000032f0| 43 25 20 83 32 34 30 3a | 4b 25 3d 43 25 20 81 32 |C% .240:|K%=C% .2|
|00003300| 34 30 0d 37 1e 10 f1 58 | 31 28 4a 25 2c 4b 25 29 |40.7...X|1(J%,K%)|
|00003310| 2c 3b 0d ff             |                         |,;..    |        |
+--------+-------------------------+-------------------------+--------+--------+